From: yamaoka Date: Tue, 9 May 2000 23:21:27 +0000 (+0000) Subject: Sync with `t-gnus-6_14'. X-Git-Tag: t-gnus-6_14-quimby-before-AC-changed-~81 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fcf75e07d6c451dfdd38e825a2efa47b56ef842a;p=elisp%2Fgnus.git- Sync with `t-gnus-6_14'. --- diff --git a/ChangeLog b/ChangeLog index d27f4f1..eb8a334 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2000-05-09 Katsumi Yamaoka + + * lisp/gnus-msg.el (gnus-debug): Add "nntp.el" and `defvoo'. + 2000-05-08 Katsumi Yamaoka * lisp/gnus-vers.el (T-gnus): Update to 6.14.4. diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index ea0decd..dafe248 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -1025,7 +1025,7 @@ The source file has to be in the Emacs load path." (let ((files '("gnus.el" "gnus-sum.el" "gnus-group.el" "gnus-art.el" "gnus-start.el" "gnus-async.el" "gnus-msg.el" "gnus-score.el" "gnus-win.el" "gnus-topic.el" - "nnmail.el" "message.el")) + "nnmail.el" "nntp.el" "message.el")) (point (point)) file expr olist sym) (gnus-message 4 "Please wait while we snoop your variables...") @@ -1046,7 +1046,8 @@ The source file has to be in the Emacs load path." (while (setq expr (ignore-errors (read (current-buffer)))) (ignore-errors (and (or (eq (car expr) 'defvar) - (eq (car expr) 'defcustom)) + (eq (car expr) 'defcustom) + (eq (car expr) 'defvoo)) (stringp (nth 3 expr)) (or (not (boundp (nth 1 expr))) (not (equal (eval (nth 2 expr))