From 886b7ddb174d4f9a7c355976e5dc1611a670d0e6 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 31 Dec 2001 23:44:44 +0000 Subject: [PATCH] * 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. --- lisp/ChangeLog | 15 +++++++++++++++ lisp/gnus-art.el | 2 +- lisp/gnus-sum.el | 29 +++++++++++++++++++++++++---- lisp/gnus-xmas.el | 2 +- lisp/ietf-drums.el | 2 +- 5 files changed, 43 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index df8d07fc6..aead4fd00 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,20 @@ +2002-01-01 Lars Magne Ingebrigtsen + + * 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 + * 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 9ed95d403..4b1b6c0cd 100644 --- 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 37ecf234c..7960b8d84 100644 --- 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 659a3e74f..36b2b20cc 100644 --- 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 34e5d64d6..5e50e06a3 100644 --- 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 -- 2.25.1