* 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.

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 19c457a..923b503 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -2258,15 +2258,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 ca36de4..41a063e 100644 (file)
--- a/lisp/gnus-score.el
+++ b/lisp/gnus-score.el
@@ -2357,7 +2357,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 452b523..f475b43 100644 (file)
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -907,6 +907,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 4622d13..01a16b0 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2125,6 +2125,16 @@ 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