[Emacs-diffs] /srv/bzr/emacs/trunk r109175: lisp/gnus/message.el: Replace deprecated rmail vars

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 109175
author: Julien Danjou <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sat 2012-07-21 11:05:32 +0000
message:
  lisp/gnus/message.el: Replace deprecated rmail vars
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/message.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-07-18 10:38:37 +0000
+++ b/lisp/gnus/ChangeLog       2012-07-21 11:05:32 +0000
@@ -1,3 +1,9 @@
+2012-07-21  Julien Danjou  <address@hidden>
+
+       * 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  <address@hidden>
 
        * sieve-mode.el (sieve-mode-map): Bind C-c C-c to

=== modified file 'lisp/gnus/message.el'
--- a/lisp/gnus/message.el      2012-06-26 22:52:31 +0000
+++ b/lisp/gnus/message.el      2012-07-21 11:05:32 +0000
@@ -1332,11 +1332,11 @@
   :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 @@
 (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 @@
       ;; 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))