Synch to No Gnus 200405170008.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 79da6ae..3c415d1 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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)))
+      ())))
+
 \f
 
 ;;;