diff options
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/ChangeLog | 19 | ||||
| -rw-r--r-- | lisp/gnus/gnus-agent.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/mm-url.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/spam-report.el | 2 |
4 files changed, 23 insertions, 2 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index b878be500bb..44675cdacd0 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -20,6 +20,25 @@ * message.el (message-check-news-header-syntax): Follow convention for reading with the minibuffer. +2005-09-22 Reiner Steib <Reiner.Steib@gmx.de> + + * spam-report.el (spam-report-url-ping-plain): Use + gnus-extended-version as User-Agent. + + * gnus-agent.el (gnus-agent-synchronize-flags): Explain why the + default value is nil. + +2005-09-20 Lars Magne Ingebrigtsen <larsi@gnus.org> + + * gnus-agent.el (gnus-agent-synchronize-flags): Switch the + default to nil, to be able to use Gnus at all. If the default + switches to something else, then the function should be fixed not + be exceedingly slow. + +2005-09-19 Reiner Steib <Reiner.Steib@gmx.de> + + * mm-url.el (mm-url-decode-entities): Fix regexp. + 2005-09-18 D Goel <deego@gnufans.org> * sieve.el (sieve-help): Fix `message' call: first arg should be a diff --git a/lisp/gnus/gnus-agent.el b/lisp/gnus/gnus-agent.el index 0d024d06e11..0357ddd18cb 100644 --- a/lisp/gnus/gnus-agent.el +++ b/lisp/gnus/gnus-agent.el @@ -118,6 +118,8 @@ If nil, only read articles will be expired." (defcustom gnus-agent-synchronize-flags t "Indicate if flags are synchronized when you plug in. If this is `ask' the hook will query the user." + ;; If the default switches to something else than nil, then the function + ;; should be fixed not be exceedingly slow. See 2005-09-20 ChangeLog entry. :version "21.1" :type '(choice (const :tag "Always" t) (const :tag "Never" nil) diff --git a/lisp/gnus/mm-url.el b/lisp/gnus/mm-url.el index 961ee0ea4fb..4fd39e477f6 100644 --- a/lisp/gnus/mm-url.el +++ b/lisp/gnus/mm-url.el @@ -365,7 +365,7 @@ If FOLLOW-REFRESH is non-nil, redirect refresh url in META." (defun mm-url-decode-entities () "Decode all HTML entities." (goto-char (point-min)) - (while (re-search-forward "&\\(#[0-9]+\\|[a-z]+\\);" nil t) + (while (re-search-forward "&\\(#[0-9]+\\|[a-z]+[0-9]*\\);" nil t) (let ((elem (if (eq (aref (match-string 1) 0) ?\#) (let ((c (string-to-number (substring diff --git a/lisp/gnus/spam-report.el b/lisp/gnus/spam-report.el index 173306ec55e..293a41d7b60 100644 --- a/lisp/gnus/spam-report.el +++ b/lisp/gnus/spam-report.el @@ -150,7 +150,7 @@ the function specified by `spam-report-url-ping-function'." (process-send-string tcp-connection (format "GET %s HTTP/1.1\nUser-Agent: %s (spam-report.el)\nHost: %s\n\n" - report (gnus-emacs-version) host))))) + report (gnus-extended-version) host))))) ;;;###autoload (defun spam-report-process-queue (&optional file keep) |