[Emacs-diffs] /srv/bzr/emacs/trunk r106484: * lisp/mail/rmail.el (rmail-message-filter): Mark as obsolete.

[Glenn Morris]

------------------------------------------------------------
revno: 106484
fixes bug(s): http://debbugs.gnu.org/2624
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2011-11-22 23:17:48 -0800
message:
  * lisp/mail/rmail.el (rmail-message-filter): Mark as obsolete. 
  
  * etc/NEWS: Mention this.
modified:
  etc/NEWS
  lisp/ChangeLog
  lisp/mail/rmail.el

=== modified file 'etc/NEWS'
--- a/etc/NEWS  2011-11-22 21:53:59 +0000
+++ b/etc/NEWS  2011-11-23 07:17:48 +0000
@@ -725,6 +725,11 @@
 *** The command `rmail-epa-decrypt' decrypts OpenPGP data
 in the Rmail incoming message.
 
+---
+*** The variable `rmail-message-filter' no longer has any effect.
+This change was made in Emacs 23.1 but was not advertised at the time.
+Try using `rmail-show-message-hook' instead.
+
 ** Shell mode
 
 *** Shell mode uses pcomplete rules, with the standard completion UI.

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-11-22 15:18:56 +0000
+++ b/lisp/ChangeLog    2011-11-23 07:17:48 +0000
@@ -1,3 +1,7 @@
+2011-11-23  Glenn Morris  <address@hidden>
+
+       * mail/rmail.el (rmail-message-filter): Mark as obsolete.  (Bug#2624)
+
 2011-11-22  Stefan Monnier  <address@hidden>
 
        * server.el (server-eval-and-print): Allow C-g (bug#6585).

=== modified file 'lisp/mail/rmail.el'
--- a/lisp/mail/rmail.el        2011-11-22 11:35:26 +0000
+++ b/lisp/mail/rmail.el        2011-11-23 07:17:48 +0000
@@ -482,6 +482,7 @@
 ;; It's not clear what it should do now, since there is nothing that
 ;; records when a message is shown for the first time (unseen is not
 ;; necessarily the same thing).
+;; See http://lists.gnu.org/archive/html/emacs-devel/2009-03/msg00013.html
 (defcustom rmail-message-filter nil
   "If non-nil, a filter function for new messages in RMAIL.
 Called with region narrowed to the message, including headers,
@@ -489,6 +490,10 @@
   :group 'rmail-headers
   :type '(choice (const nil) function))
 
+(make-obsolete-variable 'rmail-message-filter
+                       "it is not used (try `rmail-show-message-hook')."
+                       "23.1")
+
 (defcustom rmail-automatic-folder-directives nil
   "List of directives specifying where to put a message.
 Each element of the list is of the form: