From: yamaoka <yamaoka>
Date: Wed, 26 Oct 2005 00:23:51 +0000 (+0000)
Subject: Synch to No Gnus 200510260014.
X-Git-Tag: t-gnus-6_17_4-quimby-~281
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ee84bd43f5f7b4bb7482cf1399bcf575f9d0588d;p=elisp%2Fgnus.git-

Synch to No Gnus 200510260014.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5a6771a..a66c0d8 100644
--- 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
--- 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
--- 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
--- 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))))))))))