From edf5f9674c2b8f713c5f7ea1521c405cf0d86727 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 4 Mar 2004 06:31:55 +0000 Subject: [PATCH] Synch to No Gnus 200403040630. --- lisp/ChangeLog | 42 +++++++++++++++++++++++++++++++++++++++++- lisp/binhex.el | 3 ++- lisp/canlock.el | 3 +-- lisp/dgnushack.el | 1 + lisp/gnus-ems.el | 3 +-- lisp/gnus-msg.el | 6 +----- lisp/gnus-score.el | 2 -- lisp/gnus-setup.el | 5 ++--- lisp/imap.el | 3 +-- lisp/message.el | 49 +++++++++++++++++++++++-------------------------- lisp/mm-decode.el | 1 - lisp/mm-url.el | 2 +- lisp/mm-view.el | 4 +--- lisp/nndb.el | 6 +----- lisp/password.el | 7 +++---- lisp/sieve-mode.el | 3 +-- lisp/uudecode.el | 3 ++- 17 files changed, 82 insertions(+), 61 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5e82ef7..eac6efd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,43 @@ +2004-03-04 Katsumi Yamaoka + + * binhex.el: Don't autoload executable-find. + + * canlock.el: Don't autoload mail-fetch-field. + + * dgnushack.el: Autoload c-mode for XEmacs. + + * gnus-ems.el: Don't autoload appt-select-lowest-window. + + * gnus-msg.el: Don't autoload news-reply-mode, news-setup, + rmail-dont-reply-to and rmail-output. + + * gnus-score.el: Don't autoload ffap-string-at-point. + + * gnus-setup.el: Don't autoload sc-cite-original. + + * imap.el: Don't autoload base64-decode-string, + base64-encode-string and md5. + + * message.el: Autoload rmail-dont-reply-to, rmail-msg-is-pruned + and rmail-msg-restore-non-pruned-header. + + * mm-decode.el: Don't autoload executable-find. + + * mm-url.el: Don't autoload executable-find. + + * mm-view.el: Don't autoload diff-mode. + + * nndb.el: Don't autoload news-reply-mode, news-setup, + cancel-timer and telnet. + + * password.el: Don't autoload run-at-time for Emacs. + + * sha1-el.el: Don't autoload executable-find. + + * sieve-mode.el: Don't autoload c-mode. + + * uudecode.el: Don't autoload executable-find. + 2004-03-02 Kevin Greiner * gnus-agent.el (gnus-agent-file-header-cache): Removed. @@ -646,7 +686,7 @@ 2004-01-15 Katsumi Yamaoka - * mm-decoce.el (mm-multiple-handles): Recognize a string as a mime + * mm-decode.el (mm-multiple-handles): Recognize a string as a mime handle, as well as a list. * mm-view.el (mm-w3m-cid-retrieve-1): Call itself recursively. diff --git a/lisp/binhex.el b/lisp/binhex.el index d0a6c05..982e8e9 100644 --- a/lisp/binhex.el +++ b/lisp/binhex.el @@ -1,5 +1,6 @@ ;;; binhex.el --- elisp native binhex decode -;; Copyright (c) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. +;; Copyright (c) 1998, 1999, 2000, 2001, 2002, 2004 +;; Free Software Foundation, Inc. ;; Author: Shenghuo Zhu ;; Keywords: binhex news diff --git a/lisp/canlock.el b/lisp/canlock.el index 6bdcd3b..9e437e7 100644 --- a/lisp/canlock.el +++ b/lisp/canlock.el @@ -1,7 +1,7 @@ ;;; canlock.el --- functions for Cancel-Lock feature ;; Copyright (C) 1998, 1999, 2001, 2002, 2003, 2004 -;; Free Software Foundation, Inc. +;; Free Software Foundation, Inc. ;; Author: Katsumi Yamaoka ;; Keywords: news, cancel-lock, hmac, sha1, rfc2104 @@ -54,7 +54,6 @@ (load (expand-file-name "sha1-el" (file-name-directory mel)) nil t)))))) -(autoload 'mail-fetch-field "mail-utils") (defvar mail-header-separator) (defgroup canlock nil diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el index 0562a62..a483316 100644 --- a/lisp/dgnushack.el +++ b/lisp/dgnushack.el @@ -307,6 +307,7 @@ Try to re-configure with --with-addpath=FLIM_PATH and run make again. (autoload 'apropos-command "apropos" nil t) (autoload 'bbdb-complete-name "bbdb-com" nil t) (autoload 'browse-url "browse-url" nil t) + (autoload 'c-mode "cc-mode" nil t) (autoload 'customize-apropos "cus-edit" nil t) (autoload 'customize-save-variable "cus-edit" nil t) (autoload 'customize-variable "cus-edit" nil t) diff --git a/lisp/gnus-ems.el b/lisp/gnus-ems.el index 196000e..4579eb9 100644 --- a/lisp/gnus-ems.el +++ b/lisp/gnus-ems.el @@ -1,5 +1,5 @@ ;;; gnus-ems.el --- functions for making Semi-gnus work under different Emacsen -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -45,7 +45,6 @@ (eval-and-compile (autoload 'gnus-xmas-define "gnus-xmas") (autoload 'gnus-xmas-redefine "gnus-xmas") - (autoload 'appt-select-lowest-window "appt") (autoload 'gnus-get-buffer-create "gnus") (autoload 'nnheader-find-etc-directory "nnheader")) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index e6918bb..c7cbf23 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -354,11 +354,7 @@ Thank you for your help in stamping out bugs. ", a modified version of Semi-gnus"))) (eval-and-compile - (autoload 'gnus-uu-post-news "gnus-uu" nil t) - (autoload 'news-setup "rnewspost") - (autoload 'news-reply-mode "rnewspost") - (autoload 'rmail-dont-reply-to "mail-utils") - (autoload 'rmail-output "rmailout")) + (autoload 'gnus-uu-post-news "gnus-uu" nil t)) ;;; diff --git a/lisp/gnus-score.el b/lisp/gnus-score.el index e656b32..9d58e09 100644 --- a/lisp/gnus-score.el +++ b/lisp/gnus-score.el @@ -36,8 +36,6 @@ (require 'message) (require 'score-mode) -(autoload 'ffap-string-at-point "ffap") - (defcustom gnus-global-score-files nil "List of global score files and directories. Set this variable if you want to use people's score files. One entry diff --git a/lisp/gnus-setup.el b/lisp/gnus-setup.el index 7ad8883..25dfda0 100644 --- a/lisp/gnus-setup.el +++ b/lisp/gnus-setup.el @@ -1,6 +1,6 @@ ;;; gnus-setup.el --- Initialization & Setup for Gnus 5 -;; Copyright (C) 1995, 1996, 2000, 2001 +;; Copyright (C) 1995, 1996, 2000, 2001, 2004 ;; Free Software Foundation, Inc. ;; Author: Steven L. Baur @@ -140,8 +140,7 @@ (when gnus-use-sc (add-hook 'mail-citation-hook 'sc-cite-original) - (setq message-cite-function 'sc-cite-original) - (autoload 'sc-cite-original "supercite")) + (setq message-cite-function 'sc-cite-original)) ;;;### (autoloads (gnus gnus-slave gnus-no-server) "gnus" "lisp/gnus.el" (12473 2137)) ;;; Generated autoloads from lisp/gnus.el diff --git a/lisp/imap.el b/lisp/imap.el index c204a47..ea69dff 100644 --- a/lisp/imap.el +++ b/lisp/imap.el @@ -1,5 +1,5 @@ ;;; imap.el --- imap library -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003 +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004 ;; Free Software Foundation, Inc. ;; Author: Simon Josefsson @@ -150,7 +150,6 @@ (autoload 'digest-md5-digest-uri "digest-md5") (autoload 'digest-md5-challenge "digest-md5") (autoload 'rfc2104-hash "rfc2104") - (autoload 'md5 "md5") (autoload 'utf7-encode "utf7") (autoload 'utf7-decode "utf7") (autoload 'format-spec "format-spec") diff --git a/lisp/message.el b/lisp/message.el index 56460bc..1aecfde 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -59,12 +59,6 @@ (require 'mml)) (require 'rfc822) -(eval-and-compile - (autoload 'gnus-find-method-for-group "gnus") - (autoload 'nnvirtual-find-group-art "nnvirtual") - (autoload 'gnus-group-decoded-name "gnus-group")) -(eval-when-compile - (autoload 'sha1 "sha1-el")) (defgroup message '((user-mail-address custom-variable) (user-full-name custom-variable)) @@ -1739,28 +1733,35 @@ no, only reply back to the author." :type 'regexp) (eval-and-compile - (autoload 'message-setup-toolbar "messagexmas") - (autoload 'mh-new-draft-name "mh-comp") - (autoload 'mh-send-letter "mh-comp") - (autoload 'gnus-output-to-rmail "gnus-util") - (autoload 'gnus-output-to-mail "gnus-util") - (autoload 'nndraft-request-associate-buffer "nndraft") - (autoload 'nndraft-request-expire-articles "nndraft") - (autoload 'gnus-open-server "gnus-int") - (autoload 'gnus-request-post "gnus-int") - (autoload 'gnus-copy-article-buffer "gnus-msg") (autoload 'gnus-alive-p "gnus-util") - (autoload 'gnus-server-string "gnus") + (autoload 'gnus-delay-article "gnus-delay") + (autoload 'gnus-extract-address-components "gnus-util") + (autoload 'gnus-find-method-for-group "gnus") + (autoload 'gnus-group-decoded-name "gnus-group") (autoload 'gnus-group-name-charset "gnus-group") (autoload 'gnus-group-name-decode "gnus-group") (autoload 'gnus-groups-from-server "gnus") - (autoload 'rmail-output "rmailout") - (autoload 'gnus-delay-article "gnus-delay") (autoload 'gnus-make-local-hook "gnus-util") - (autoload 'gnus-extract-address-components "gnus-util")) + (autoload 'gnus-open-server "gnus-int") + (autoload 'gnus-output-to-mail "gnus-util") + (autoload 'gnus-output-to-rmail "gnus-util") + (autoload 'gnus-request-post "gnus-int") + (autoload 'gnus-server-string "gnus") + (autoload 'idna-to-ascii "idna") + (autoload 'message-setup-toolbar "messagexmas") + (autoload 'mh-new-draft-name "mh-comp") + (autoload 'mh-send-letter "mh-comp") + (autoload 'mu-cite-original "mu-cite") + (autoload 'nndraft-request-associate-buffer "nndraft") + (autoload 'nndraft-request-expire-articles "nndraft") + (autoload 'nnvirtual-find-group-art "nnvirtual") + (autoload 'rmail-dont-reply-to "mail-utils") + (autoload 'rmail-msg-is-pruned "rmail") + (autoload 'rmail-msg-restore-non-pruned-header "rmail") + (autoload 'rmail-output "rmailout")) -(eval-and-compile - (autoload 'mu-cite-original "mu-cite")) +(eval-when-compile + (autoload 'sha1 "sha1-el")) @@ -5494,8 +5495,6 @@ I.e., calling it on a Subject: header is useless." (incf paren)) (and (= (% dquote 2) 1) (= (% paren 2) 1)))))) -(autoload 'idna-to-ascii "idna") - (defun message-idna-to-ascii-rhs-1 (header) "Interactively potentially IDNA encode domain names in HEADER." (let (rhs ace start startpos endpos ovl) @@ -6986,8 +6985,6 @@ Optional NEWS will use news to forward instead of mail." (defun message-forward-rmail-make-body (forward-buffer) (save-window-excursion (set-buffer forward-buffer) - ;; Rmail doesn't have rmail-msg-restore-non-pruned-header in Emacs - ;; 20. FIXIT, or we drop support for rmail in Emacs 20. (if (rmail-msg-is-pruned) (rmail-msg-restore-non-pruned-header))) (message-forward-make-body forward-buffer)) diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index a359dfd..1c31a2c 100644 --- a/lisp/mm-decode.el +++ b/lisp/mm-decode.el @@ -32,7 +32,6 @@ (require 'term)) (eval-and-compile - (autoload 'executable-find "executable") (autoload 'mm-inline-partial "mm-partial") (autoload 'mm-inline-external-body "mm-extern") (autoload 'mm-insert-inline "mm-view")) diff --git a/lisp/mm-url.el b/lisp/mm-url.el index 8f20ac9..405bc05 100644 --- a/lisp/mm-url.el +++ b/lisp/mm-url.el @@ -1,5 +1,5 @@ ;;; mm-url.el --- a wrapper of url functions/commands for Gnus -;; Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2002, 2003, 2004 Free Software Foundation, Inc. ;; Author: Shenghuo Zhu diff --git a/lisp/mm-view.el b/lisp/mm-view.el index add8fab..e319f2a 100644 --- a/lisp/mm-view.el +++ b/lisp/mm-view.el @@ -35,9 +35,7 @@ (autoload 'vcard-parse-string "vcard") (autoload 'vcard-format-string "vcard") (autoload 'fill-flowed "flow-fill") - (autoload 'html2text "html2text") - (unless (fboundp 'diff-mode) - (autoload 'diff-mode "diff-mode" "" t nil))) + (autoload 'html2text "html2text")) (defvar mm-text-html-renderer-alist '((w3 . mm-inline-text-html-render-with-w3) diff --git a/lisp/nndb.el b/lisp/nndb.el index fa5e641..9b25a54 100644 --- a/lisp/nndb.el +++ b/lisp/nndb.el @@ -1,6 +1,6 @@ ;;; nndb.el --- nndb access for Gnus -;; Copyright (C) 1997, 1998, 2000, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1997, 1998, 2000, 2003, 2004 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA ;; Kai Grossjohann @@ -60,10 +60,6 @@ (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")) diff --git a/lisp/password.el b/lisp/password.el index a60e39e..4683a9c 100644 --- a/lisp/password.el +++ b/lisp/password.el @@ -1,6 +1,6 @@ ;;; password.el --- Read passwords from user, possibly using a password cache. -;; Copyright (C) 1999, 2000, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2003, 2004 Free Software Foundation, Inc. ;; Author: Simon Josefsson ;; Created: 2003-12-21 @@ -52,9 +52,8 @@ ;;; Code: -(if (featurep 'xemacs) - (require 'run-at-time) - (autoload 'run-at-time "timer")) +(when (featurep 'xemacs) + (require 'run-at-time)) (eval-when-compile (require 'cl)) diff --git a/lisp/sieve-mode.el b/lisp/sieve-mode.el index e4945c9..f105ced 100644 --- a/lisp/sieve-mode.el +++ b/lisp/sieve-mode.el @@ -1,5 +1,5 @@ ;;; sieve-mode.el --- Sieve code editing commands for Emacs -;; Copyright (C) 2001, 2003 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2003, 2004 Free Software Foundation, Inc. ;; Author: Simon Josefsson @@ -49,7 +49,6 @@ (autoload 'sieve-manage "sieve") (autoload 'sieve-upload "sieve") -(autoload 'c-mode "cc-mode") (require 'easymenu) (eval-when-compile (require 'font-lock)) diff --git a/lisp/uudecode.el b/lisp/uudecode.el index ffb2eee..0a0b673 100644 --- a/lisp/uudecode.el +++ b/lisp/uudecode.el @@ -1,6 +1,7 @@ ;;; uudecode.el -- elisp native uudecode -;; Copyright (c) 1998, 1999, 2000, 2001, 2003 Free Software Foundation, Inc. +;; Copyright (c) 1998, 1999, 2000, 2001, 2003, 2004 +;; Free Software Foundation, Inc. ;; Author: Shenghuo Zhu ;; Keywords: uudecode news -- 1.7.10.4