Synch to No Gnus 200510260014.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5a6771a..a66c0d8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-10-23  Chong Yidong  <cyd@stupidchicken.com>
+
+       * gnus-sum.el (gnus-ignored-from-addresses): Handle case where
+       user-mail-name is an empty string.
+
 2005-10-25  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * gnus-score.el (gnus-default-adaptive-score-alist): Set defaults
@@ -74,6 +79,22 @@
 
        * lpath.el: Fbind codepage-setup for XEmacs.
 
+2005-10-17  Chong Yidong  <cyd@stupidchicken.com>
+
+       * gnus-cus.el (gnus-custom-map): New variable.  Bind mouse-1 to
+       widget-move-and-invoke.
+       (gnus-custom-mode): Use gnus-custom-map.
+
+2005-10-15  Bill Wohler  <wohler@newt.com>
+
+       * message.el (message-tool-bar-map): Renamed image file from
+       mail_send to mail/send.
+
+2005-10-16  Masatake YAMATO  <jet@gyve.org>
+
+       * message.el (message-expand-group): Pass the common
+       prefix substring of completion to `display-completion-list'.
+
 2005-10-13  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * mml-sec.el (mml-secure-method): New internal variable.

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index 98c26a1..f22c741 100644 (file)
--- a/lisp/gnus-cus.el
+++ b/lisp/gnus-cus.el
@@ -36,6 +36,14 @@
 
 ;;; Widgets:
 
+(defvar gnus-custom-map
+  (let ((map (make-keymap)))
+    (set-keymap-parent map widget-keymap)
+    (suppress-keymap map)
+    (define-key map [mouse-1] 'widget-move-and-invoke)
+    map)
+  "Keymap for editing Gnus customization buffers.")
+
 (defun gnus-custom-mode ()
   "Major mode for editing Gnus customization buffers.
 
@@ -51,7 +59,7 @@ if that value is non-nil."
   (kill-all-local-variables)
   (setq major-mode 'gnus-custom-mode
        mode-name "Gnus Customize")
-  (use-local-map widget-keymap)
+  (use-local-map gnus-custom-map)
   ;; Emacs 21 stuff:
   (when (and (facep 'custom-button-face)
             (facep 'custom-button-pressed-face))
@@ -480,7 +488,7 @@ form, but who cares?"
            (widget-create 'sexp
                           :tag "Method"
                           :value (gnus-info-method info))))
-    (use-local-map widget-keymap)
+    (use-local-map gnus-custom-map)
     (widget-setup)
     (buffer-enable-undo)
     (goto-char (point-min))))
@@ -874,7 +882,7 @@ articles in the thread.
                         '(repeat :inline t
                                  :tag "Unknown entries"
                                  sexp)))
-    (use-local-map widget-keymap)
+    (use-local-map gnus-custom-map)
     (widget-setup)))
 
 (defun gnus-score-customize-done (&rest ignore)
@@ -1051,7 +1059,7 @@ articles in the thread.
 
       (gnus-agent-cat-prepare-category-field agent-enable-undownloaded-faces)
 
-      (use-local-map widget-keymap)
+      (use-local-map gnus-custom-map)
       (widget-setup)
       (buffer-enable-undo))))
 

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 0794fb2..1f15047 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1081,7 +1081,9 @@ which it may alter in any way."
   :type '(repeat symbol))
 
 (defcustom gnus-ignored-from-addresses
-  (and user-mail-address (regexp-quote user-mail-address))
+  (and user-mail-address  
+       (not (string= user-mail-address ""))
+       (regexp-quote user-mail-address))
   "*Regexp of From headers that may be suppressed in favor of To headers."
   :version "21.1"
   :group 'gnus-summary

diff --git a/lisp/message.el b/lisp/message.el
index 3d1c711..6cbb8f1 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -7424,7 +7424,7 @@ which specify the range to operate on."
                                           write-file dired open-file))
                 (define-key tool-bar-map (vector key) nil))
               (message-tool-bar-local-item-from-menu
-               'message-send-and-exit "mail_send" tool-bar-map message-mode-map)
+               'message-send-and-exit "mail/send" tool-bar-map message-mode-map)
               (message-tool-bar-local-item-from-menu
                'message-kill-buffer "close" tool-bar-map message-mode-map)
               (message-tool-bar-local-item-from-menu
@@ -7556,7 +7556,7 @@ those headers."
          (let ((buffer-read-only nil))
            (erase-buffer)
            (let ((standard-output (current-buffer)))
-             (display-completion-list (sort completions 'string<)))
+             (display-completion-list (sort completions 'string<) string))
            (goto-char (point-min))
            (delete-region (point) (progn (forward-line 3) (point))))))))))