Mercurial > hg > xemacs-beta

comparison lisp/gnus/message.el @ 38:1a767b41a199 r19-15b102

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b102
author cvs
date Mon, 13 Aug 2007 08:54:01 +0200
parents d620409f5eb8
children 8b8b7f3559a2
comparison
equal deleted inserted replaced
37:ad40ac360d14 38:1a767b41a199
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?