Merge from emacs--rel--22

Patches applied:

 * emacs--rel--22  (patch 129-130)

   - Update from CVS
   - Merge from gnus--rel--5.10

 * gnus--rel--5.10  (patch 259-260)

   - Merge from emacs--rel--22
   - Update from CVS

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-900

4 files changed, 16 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d831ea839e8..8ea68f0da04 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-19  Juanma Barranquero  <lekktu@gmail.com>
+
+        * bs.el (bs--track-window-changes): Don't refresh the whole list.
+        (bs-mode): Set mode-class property to special.
+
 2007-10-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * diff-mode.el (diff-auto-refine): New var.
diff --git a/lisp/bs.el b/lisp/bs.el
index bb2dbae83c0..105e5702bcc 100644
--- a/lisp/bs.el
+++ b/lisp/bs.el
@@ -612,7 +612,6 @@ Used from `window-size-change-functions'."
   (let ((win (get-buffer-window "*buffer-selection*" frame)))
     (when win
       (with-selected-window win
-        (bs-refresh)
         (bs--set-window-height)))))
 
 (defun bs--remove-hooks ()
@@ -622,6 +621,8 @@ Used from `window-size-change-functions'."
   (remove-hook 'kill-buffer-hook 'bs--remove-hooks t)
   (remove-hook 'change-major-mode-hook 'bs--remove-hooks t))
 
+(put 'bs-mode 'mode-class 'special)
+
 (define-derived-mode bs-mode nil "Buffer-Selection-Menu"
   "Major mode for editing a subset of Emacs' buffers.
 \\<bs-mode-map>
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 59a32921dc5..5f49f2dc81a 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-18  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+        * nnmail.el (nnmail-fancy-expiry-target): Use rmail-dont-reply-to to
+        exclude address matching message-dont-reply-to-names.
+
 2007-10-15  Katsumi Yamaoka  <yamaoka@jpl.org>
 
         * gnus-util.el (gnus-string<): New function.
diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el
index 71a528c0f0b..35f5476f9b4 100644
--- a/lisp/gnus/nnmail.el
+++ b/lisp/gnus/nnmail.el
@@ -1900,8 +1900,10 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
        ;; To or From header
        ((and (equal header 'to-from)
              (or (string-match (cadr regexp-target-pair) from)
-                 (and (string-match message-dont-reply-to-names from)
-                      (string-match (cadr regexp-target-pair) to))))
+                 (and (string-match (cadr regexp-target-pair) to)
+                      (let ((rmail-dont-reply-to-names
+                             message-dont-reply-to-names))
+                        (equal (rmail-dont-reply-to from) "")))))
         (setq target (format-time-string (caddr regexp-target-pair) date)))
        ((and (not (equal header 'to-from))
              (string-match (cadr regexp-target-pair)