Mercurial > hg > xemacs-beta

comparison lisp/gnus/message.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents 48d667d6f17f
children 9f59509498e1
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
3005 (unless never-mct 3005 (unless never-mct
3006 (insert (or reply-to from ""))) 3006 (insert (or reply-to from "")))
3007 (insert (if (bolp) "" ", ") (or to "")) 3007 (insert (if (bolp) "" ", ") (or to ""))
3008 (insert (if mct (concat (if (bolp) "" ", ") mct) "")) 3008 (insert (if mct (concat (if (bolp) "" ", ") mct) ""))
3009 (insert (if cc (concat (if (bolp) "" ", ") cc) "")) 3009 (insert (if cc (concat (if (bolp) "" ", ") cc) ""))
3010 (goto-char (point-min))
3011 (while (re-search-forward "[ \t]+" nil t)
3012 (replace-match " " t t))
3010 ;; Remove addresses that match `rmail-dont-reply-to-names'. 3013 ;; Remove addresses that match `rmail-dont-reply-to-names'.
3011 (insert (prog1 (rmail-dont-reply-to (buffer-string)) 3014 (insert (prog1 (rmail-dont-reply-to (buffer-string))
3012 (erase-buffer))) 3015 (erase-buffer)))
3013 (goto-char (point-min)) 3016 (goto-char (point-min))
3014 ;; Perhaps Mail-Copies-To: never removed the only address? 3017 ;; Perhaps Mail-Copies-To: never removed the only address?