From: yamaoka <yamaoka>
Date: Mon, 17 May 2004 00:13:01 +0000 (+0000)
Subject: Synch to No Gnus 200405170008.
X-Git-Tag: t-gnus-6_17_4-quimby-~930
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=7b65658e7e317b09023f3dc3b86e1f5b45538705;p=elisp%2Fgnus.git-

Synch to No Gnus 200405170008.
---

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)))
+      ())))
+
 
 
 ;;;