Mercurial > emacs
changeset 62428:9f49da4a429d
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-314
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 69)
- Update from CVS
2005-05-16 Katsumi Yamaoka <yamaoka@jpl.org>
* lisp/gnus/gnus-art.el: Don't autoload mail-extract-address-components.
* lisp/gnus/gnus.el: Use eval-and-compile to autoload message-y-or-n-p.
* lisp/gnus/nndb.el: Don't declare the nndb back end two or more times; don't
autoload news-reply-mode, news-setup, cancel-timer and telnet.
* lisp/gnus/nntp.el: Autoload format-spec instead of format; use
eval-and-compile to evaluate autoload forms.
* lisp/gnus/spam-report.el (spam-report-process-queue): Use gnus-point-at-eol.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Tue, 17 May 2005 04:57:29 +0000 |
| parents | 882ba17cc547 |
| children | b0b56d84051f |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-art.el lisp/gnus/gnus.el lisp/gnus/nndb.el lisp/gnus/nntp.el lisp/gnus/spam-report.el |
| diffstat | 6 files changed, 30 insertions(+), 23 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Tue May 17 00:28:50 2005 +0000 +++ b/lisp/gnus/ChangeLog Tue May 17 04:57:29 2005 +0000 @@ -1,3 +1,17 @@ +2005-05-16 Katsumi Yamaoka <yamaoka@jpl.org> + + * gnus-art.el: Don't autoload mail-extract-address-components. + + * gnus.el: Use eval-and-compile to autoload message-y-or-n-p. + + * nndb.el: Don't declare the nndb back end two or more times; don't + autoload news-reply-mode, news-setup, cancel-timer and telnet. + + * nntp.el: Autoload format-spec instead of format; use + eval-and-compile to evaluate autoload forms. + + * spam-report.el (spam-report-process-queue): Use gnus-point-at-eol. + 2005-04-28 Katsumi Yamaoka <yamaoka@jpl.org> * gnus-art.el (article-date-ut): Support converting date in @@ -345,9 +359,6 @@ * gnus-async.el: Ditto. - * dgnushack.el: No need to ignore `run-with-idle-timer', XEmacs - has this function now. - 2005-03-16 Lute Kamstra <lute@gnu.org> * message.el (message-make-date): Require parse-time.
--- a/lisp/gnus/gnus-art.el Tue May 17 00:28:50 2005 +0000 +++ b/lisp/gnus/gnus-art.el Tue May 17 04:57:29 2005 +0000 @@ -481,9 +481,6 @@ :link '(custom-manual "(gnus)Article Date") :group 'gnus-article-washing) -(eval-and-compile - (autoload 'mail-extract-address-components "mail-extr")) - (defcustom gnus-save-all-headers t "*If non-nil, don't remove any headers before saving." :group 'gnus-article-saving
--- a/lisp/gnus/gnus.el Tue May 17 00:28:50 2005 +0000 +++ b/lisp/gnus/gnus.el Tue May 17 04:57:29 2005 +0000 @@ -1,7 +1,7 @@ ;;; gnus.el --- a newsreader for GNU Emacs ;; Copyright (C) 1987, 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, -;; 1998, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. +;; 1998, 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> ;; Lars Magne Ingebrigtsen <larsi@gnus.org> @@ -34,7 +34,6 @@ (require 'wid-edit) (require 'mm-util) (require 'nnheader) -(autoload 'message-y-or-n-p "message" nil nil 'macro) (defgroup gnus nil "The coffee-brewing, all singing, all dancing, kitchen sink newsreader." @@ -3925,6 +3924,9 @@ (setq valids (cdr valids))) outs)) +(eval-and-compile + (autoload 'message-y-or-n-p "message" nil nil 'macro)) + (defun gnus-read-group (prompt &optional default) "Prompt the user for a group name. Disallow invalid group names."
--- a/lisp/gnus/nndb.el Tue May 17 00:28:50 2005 +0000 +++ b/lisp/gnus/nndb.el Tue May 17 04:57:29 2005 +0000 @@ -1,6 +1,7 @@ ;;; nndb.el --- nndb access for Gnus -;; Copyright (C) 1997, 1998, 2000, 2003, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1997, 1998, 2000, 2003, 2004, 2005 +;; Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> ;; Kai Grossjohann <grossjohann@ls6.informatik.uni-dortmund.de> @@ -50,7 +51,9 @@ ;;- ;; Register nndb with known select methods. -(gnus-declare-backend "nndb" 'mail 'respool 'address 'prompt-address) +(require 'gnus-start) +(unless (assoc "nndb" gnus-valid-select-methods) + (gnus-declare-backend "nndb" 'mail 'respool 'address 'prompt-address)) ;;; Code: @@ -59,14 +62,6 @@ (require 'nntp) (eval-when-compile (require 'cl)) -(eval-and-compile - (autoload 'news-setup "rnewspost") - (autoload 'news-reply-mode "rnewspost") - (autoload 'cancel-timer "timer") - (autoload 'telnet "telnet" nil t) - (autoload 'telnet-send-input "telnet" nil t) - (autoload 'gnus-declare-backend "gnus-start")) - ;; Declare nndb as derived from nntp (nnoo-declare nndb nntp)
--- a/lisp/gnus/nntp.el Tue May 17 00:28:50 2005 +0000 +++ b/lisp/gnus/nntp.el Tue May 17 04:57:29 2005 +0000 @@ -1,7 +1,8 @@ ;;; nntp.el --- nntp access for Gnus ;; Copyright (C) 1987, 1988, 1989, 1990, 1992, 1993, 1994, 1995, 1996, -;; 1997, 1998, 2000, 2001, 2002, 2003 Free Software Foundation, Inc. +;; 1997, 1998, 2000, 2001, 2002, 2003, 2004, 2005 +;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> ;; Keywords: news @@ -1147,9 +1148,10 @@ (defun nntp-open-network-stream (buffer) (open-network-stream "nntpd" buffer nntp-address nntp-port-number)) -(autoload 'format-spec "format") -(autoload 'format-spec-make "format") -(autoload 'open-tls-stream "tls") +(eval-and-compile + (autoload 'format-spec "format-spec") + (autoload 'format-spec-make "format-spec") + (autoload 'open-tls-stream "tls")) (defun nntp-open-ssl-stream (buffer) (let* ((process-connection-type nil)
--- a/lisp/gnus/spam-report.el Tue May 17 00:28:50 2005 +0000 +++ b/lisp/gnus/spam-report.el Tue May 17 04:57:29 2005 +0000 @@ -159,7 +159,7 @@ (goto-char (point-min)) (while (and (not (eobp)) (re-search-forward - "http://\\([^/]+\\)\\(/.*\\) *$" (point-at-eol) t)) + "http://\\([^/]+\\)\\(/.*\\) *$" (gnus-point-at-eol) t)) (funcall spam-report-url-ping-function (match-string 1) (match-string 2)) (forward-line 1)) (if (or (eq keep nil)