Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 02:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

lisp/gnus/message.el: Replace deprecated rmail vars

Browse source
This commit is contained in:
Julien Danjou 2012-07-21 11:05:32 +00:00 committed by Katsumi Yamaoka
parent c4328746b5
commit 0fb40182ca
2 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View file

@ -1,3 +1,9 @@
2012-07-21 Julien Danjou <julien@danjou.info>
* message.el (message-dont-reply-to-names): Replace deprecated
`rmail-dont-reply-to-names' with `mail-dont-reply-to-names'.
(message-get-reply-headers): Ditto.
2012-07-18 Julien Danjou <julien@danjou.info>
* sieve-mode.el (sieve-mode-map): Bind C-c C-c to

12
lisp/gnus/message.el
View file

@ -1332,11 +1332,11 @@ If nil, you might be asked to input the charset."
:type 'symbol)
(defcustom message-dont-reply-to-names
(and (boundp 'rmail-dont-reply-to-names) rmail-dont-reply-to-names)
(and (boundp 'mail-dont-reply-to-names) mail-dont-reply-to-names)
"*Addresses to prune when doing wide replies.
This can be a regexp or a list of regexps. Also, a value of nil means
exclude your own user name only."
:version "21.1"
:version "24.2"
:group 'message
:link '(custom-manual "(message)Wide Reply")
:type '(choice (const :tag "Yourself" nil)
@ -1933,7 +1933,7 @@ You must have the \"hashcash\" binary installed, see `hashcash-path'."
(autoload 'nndraft-request-associate-buffer "nndraft")
(autoload 'nndraft-request-expire-articles "nndraft")
(autoload 'nnvirtual-find-group-art "nnvirtual")
(autoload 'rmail-dont-reply-to "mail-utils")
(autoload 'mail-dont-reply-to "mail-utils")
(autoload 'rmail-msg-is-pruned "rmail")
(autoload 'rmail-output "rmailout")
@ -6802,9 +6802,9 @@ want to get rid of this query permanently.")))
;; Squeeze whitespace.
(while (string-match "[ \t][ \t]+" recipients)
(setq recipients (replace-match " " t t recipients)))
;; Remove addresses that match `rmail-dont-reply-to-names'.
(let ((rmail-dont-reply-to-names (message-dont-reply-to-names)))
(setq recipients (rmail-dont-reply-to recipients)))
;; Remove addresses that match `mail-dont-reply-to-names'.
(let ((mail-dont-reply-to-names (message-dont-reply-to-names)))
(setq recipients (mail-dont-reply-to recipients)))
;; Perhaps "Mail-Copies-To: never" removed the only address?
(if (string-equal recipients "")
(setq recipients author))