* gnus-art.el (gnus-ignored-headers): More headers,

* ietf-drums.el (ietf-drums-parse-addresses): Use `error' instead
of `scan-error', since XEmacs doesn't seem to support that.

* gnus-sum.el (gnus-summary-best-unread-article): Take a prefix
arg.
(gnus-summary-best-unread-subject): Ditto.
(gnus-summary-best-unread-subject): No, don't.
(gnus-summary-better-unread-subject): New command.

* gnus-xmas.el (gnus-xmas-put-image): Insert the string itself.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index df8d07f..aead4fd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,20 @@
+2002-01-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-art.el (gnus-ignored-headers): More headers,
+
+       * ietf-drums.el (ietf-drums-parse-addresses): Use `error' instead
+       of `scan-error', since XEmacs doesn't seem to support that. 
+
 2001-12-31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-sum.el (gnus-summary-best-unread-article): Take a prefix
+       arg. 
+       (gnus-summary-best-unread-subject): Ditto.
+       (gnus-summary-best-unread-subject): No, don't.
+       (gnus-summary-better-unread-subject): New command.
+
+       * gnus-xmas.el (gnus-xmas-put-image): Insert the string itself. 
+
        * lpath.el ((featurep 'xemacs)): fbind url function.
 
        * gnus-xmas.el (gnus-xmas-article-display-xface): Use data, not

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 9ed95d4..4b1b6c0 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -141,7 +141,7 @@
      "^X-Content-length:" "^X-Posting-Agent:" "^Original-Received:"
      "^X-Request-PGP:" "^X-Fingerprint:" "^X-WRIEnvto:" "^X-WRIEnvfrom:"
      "^X-Virus-Scanned:" "^X-Delivery-Agent:" "^Posted-Date:" "^X-Gateway:"
-     "^X-Local-Origin:" "^X-Local-Destination:")
+     "^X-Local-Origin:" "^X-Local-Destination:" "^X-UserInfo1:")
   "*All headers that start with this regexp will be hidden.
 This variable can also be a list of regexps of headers to be ignored.
 If `gnus-visible-headers' is non-nil, this variable will be ignored."

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 37ecf23..7960b8d 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -6799,10 +6799,14 @@ Return nil if there are no articles."
        (gnus-summary-display-article (gnus-summary-article-number)))
     (gnus-summary-position-point)))
 
-(defun gnus-summary-best-unread-article ()
-  "Select the unread article with the highest score."
-  (interactive)
-  (let ((article (gnus-summary-best-unread-subject)))
+(defun gnus-summary-best-unread-article (&optional arg)
+  "Select the unread article with the highest score.
+If given a prefix argument, select the next unread article that has a
+score higher than the default score."
+  (interactive "P")
+  (let ((article (if arg
+                    (gnus-summary-better-unread-subject)
+                  (gnus-summary-best-unread-subject))))
     (if article
        (gnus-summary-goto-article article)
       (error "No unread articles"))))
@@ -6821,6 +6825,23 @@ Return nil if there are no articles."
           (setq best score
                 article (gnus-data-number (car data))))
       (setq data (cdr data)))
+    (when article
+      (gnus-summary-goto-subject article))
+    (gnus-summary-position-point)
+    article))
+
+(defun gnus-summary-better-unread-subject ()
+  "Select the first unread subject that has a score over the default score."
+  (interactive)
+  (let ((data gnus-newsgroup-data)
+       article score)
+    (while (and (setq article (gnus-data-number (car data)))
+               (or (gnus-data-read-p (car data))
+                   (not (> (gnus-summary-article-score article)
+                           gnus-summary-default-score))))
+      (setq data (cdr data)))
+    (when article
+      (gnus-summary-goto-subject article))
     (gnus-summary-position-point)
     article))
 

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 659a3e7..36b2b20 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -830,7 +830,7 @@ XEmacs compatibility workaround."
 (defun gnus-xmas-put-image (glyph &optional string)
   (let ((begin (point))
        extent)
-    (insert " ")
+    (insert string)
     (setq extent (make-extent begin (point)))
     (set-extent-property extent 'gnus-image t)
     (set-extent-property extent 'duplicable t)

diff --git a/lisp/ietf-drums.el b/lisp/ietf-drums.el
index 34e5d64..5e50e06 100644 (file)
--- a/lisp/ietf-drums.el
+++ b/lisp/ietf-drums.el
@@ -211,7 +211,7 @@
           ((memq c '(?\" ?< ?\())
            (condition-case nil
                (forward-sexp 1)
-             (scan-error
+             (error
               (skip-chars-forward "^,"))))
           ((eq c ?,)
            (setq address