From 09f1efbcfbd450a4b0da383b2f064a218d9bcff9 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 9 May 2000 23:21:17 +0000 Subject: [PATCH] * gnus-msg.el (gnus-debug): Add "nntp.el" and `defvoo'. --- ChangeLog | 4 ++++ lisp/gnus-msg.el | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 2cb63f5..10ffc1f 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)) -- 1.7.10.4