(defun rmail-reply (just-sender) "\ Reply to the current message. Normally include CC: to all other recipients of original message; prefix argument means ignore them. While composing the reply, use \\[mail-yank-original] to yank the original message into it." (interactive "P") (byte-code "ʈ\"   !b!gUF!` !#`\"Q`! `\"\"!j#j  tʂ\"#\"!\"!\"#\"!)) \" P ! # ʂ ?  Q!!  \"ʂ )p&." [t from reply-to cc subject date to message-id resent-reply-to rmail-current-message nil just-sender cc-list rmail-set-attribute "answered" rmail-display-labels widen rmail-msgbeg forward-line 1 48 narrow-to-region 2 search-forward " " rmail-msgend move " *** EOOH *** " beginning-of-line mail-fetch-field "resent-reply-to" "from" "reply-to" "resent-cc" "cc" "resent-subject" "subject" "resent-date" "date" "resent-to" "to" "" "resent-message-id" "message-id" string-match "\\`Re: " "Re: " mail-other-window mail-strip-quoted-names rmail-make-in-reply-to-field rmail-dont-reply-to ", " string=] 40)) (defun highlight-region (string) "\ Inserts STRING at the beginning of every line in the region. Called interactively, STRING defaults to '> ' unless a prefix argument is given." (interactive (byte-code " ! C" [current-prefix-arg read-string "String to insert: " "> "] 2)) (byte-code "ˆ` \"eb \"))" [current-prefix-arg string nil narrow-to-region mark replace-regexp "^"] 5)) (defun mail-yank-original (arg) "\ Insert the message being replied to, if any (in rmail). Puts point before the text and mark after. Indents each nonblank line ARG spaces (default 3). Just \\[universal-argument] as argument means don't indent and don't delete any header fields." (interactive "P") (byte-code "È&`!! :Â \"! )" [mail-reply-buffer start arg nil delete-windows-on insert-buffer mail-yank-clear-headers mark highlight-region ">" exchange-point-and-mark] 7))