Mercurial > hg > xemacs-beta
comparison lisp/utils/mail-utils.el @ 203:850242ba4a81 r20-3b28
Import from CVS: tag r20-3b28
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:02:21 +0200 |
| parents | 9f59509498e1 |
| children |
comparison
equal
deleted
inserted
replaced
| 202:61eefc8fc970 | 203:850242ba4a81 |
|---|---|
| 130 | 130 |
| 131 (or (and (boundp 'rmail-default-dont-reply-to-names) | 131 (or (and (boundp 'rmail-default-dont-reply-to-names) |
| 132 (not (null rmail-default-dont-reply-to-names))) | 132 (not (null rmail-default-dont-reply-to-names))) |
| 133 (setq rmail-default-dont-reply-to-names "info-")) | 133 (setq rmail-default-dont-reply-to-names "info-")) |
| 134 | 134 |
| 135 ; rmail-dont-reply-to-names is defined in loaddefs | 135 ;;;###autoload |
| 136 (defvar rmail-dont-reply-to-names nil "\ | |
| 137 *A regexp specifying names to prune of reply to messages. | |
| 138 A value of nil means exclude your own name only.") | |
| 139 | |
| 136 (defun rmail-dont-reply-to (userids) | 140 (defun rmail-dont-reply-to (userids) |
| 137 "Returns string of mail addresses USERIDS sans any recipients | 141 "Returns string of mail addresses USERIDS sans any recipients |
| 138 that start with matches for `rmail-dont-reply-to-names'. | 142 that start with matches for `rmail-dont-reply-to-names'. |
| 139 Usenet paths ending in an element that matches are removed also." | 143 Usenet paths ending in an element that matches are removed also." |
| 140 (if (null rmail-dont-reply-to-names) | 144 (if (null rmail-dont-reply-to-names) |