From 7b65658e7e317b09023f3dc3b86e1f5b45538705 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Mon, 17 May 2004 00:13:01 +0000
Subject: [PATCH] Synch to No Gnus 200405170008.

---
 lisp/ChangeLog     |    9 +++++++++
 lisp/gnus-art.el   |    4 +---
 lisp/gnus-score.el |    3 ++-
 lisp/imap.el       |    5 +++++
 lisp/message.el    |   11 +++++++++++
 5 files changed, 28 insertions(+), 4 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 79da6ae..3c415d1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2004-05-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* imap.el: Add compiler directives.
+
+	* gnus-score.el (gnus-score-edit-done): run-hook->run-hooks. 
+
+	* gnus-art.el (article-decode-idna-rhs): Don't use
+	message-idna-inside-rhs-p. 
+
 2004-05-16  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* message.el (message-idna-inside-rhs-p): Removed.
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 60fc4f3..1709871 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2397,15 +2397,13 @@ If PROMPT (the prefix), prompt for a coding system to use."
 	    buffer-read-only)
 	(article-narrow-to-head)
 	(goto-char (point-min))
-	(while (re-search-forward "\\(xn--[-A-Za-z0-9.]*\\)[ \t\n\r,>]" nil t)
+	(while (re-search-forward "@.*\\(xn--[-A-Za-z0-9.]*\\)[ \t\n\r,>]" nil t)
 	  (let (ace unicode)
 	    (when (save-match-data
 		    (and (setq ace (match-string 1))
 			 (save-excursion
 			   (and (re-search-backward "^[^ \t]" nil t)
 				(looking-at "From\\|To\\|Cc")))
-			 (save-excursion (backward-char)
-					 (message-idna-inside-rhs-p))
 			 (setq unicode (idna-to-unicode ace))))
 	      (unless (string= ace unicode)
 		(replace-match unicode nil nil nil 1)))))))))
diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el
index 13c9b3b..5afed33 100644
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -2391,7 +2391,8 @@ score in `gnus-newsgroup-scored' by SCORE."
     (when winconf
       (set-window-configuration winconf))
     (gnus-score-remove-from-cache bufnam)
-    (gnus-score-load-file bufnam)))
+    (gnus-score-load-file bufnam)
+    (run-hooks 'gnus-score-edit-done-hook)))
 
 (defun gnus-score-find-trace ()
   "Find all score rules that applies to the current article."
diff --git a/lisp/imap.el b/lisp/imap.el
index 6eb8d51..a6bf517 100644
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -905,6 +905,11 @@ Returns t if login was successful, nil otherwise."
 		(concat "LOGIN anonymous \"" (concat (user-login-name) "@"
 						     (system-name)) "\"")))))
 
+;;; Compiler directives.
+
+(defvar imap-sasl-client)
+(defvar imap-sasl-step)
+
 (defun imap-sasl-make-mechanisms (buffer)
   (let ((mecs '()))
     (mapc (lambda (sym)
diff --git a/lisp/message.el b/lisp/message.el
index b9a464d..760f440 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2351,6 +2351,17 @@ Point is left at the beginning of the narrowed-to region."
 	     (1+ max)))))
       (message-sort-headers-1))))
 
+(defun message-delete-address ()
+  "Delete the address under point."
+  (interactive)
+  (let ((start (point))
+	(quote nil))
+    (message-narrow-to-field)
+    (while (and (not (eobp))
+		(or (not (eq (setq char (following-char)) ?,))
+		    (not quote)))
+      ())))
+
 
 
 ;;;
-- 
1.7.10.4