From: yamaoka <yamaoka>
Date: Tue, 9 May 2000 23:21:17 +0000 (+0000)
Subject: * gnus-msg.el (gnus-debug): Add "nntp.el" and `defvoo'.
X-Git-Tag: t-gnus-6_14_4-01~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=09f1efbcfbd450a4b0da383b2f064a218d9bcff9;p=elisp%2Fgnus.git-

* gnus-msg.el (gnus-debug): Add "nntp.el" and `defvoo'.
---

diff --git a/ChangeLog b/ChangeLog
index d27f4f1..eb8a334 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2000-05-09  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/gnus-msg.el (gnus-debug): Add "nntp.el" and `defvoo'.
+
 2000-05-08  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* 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))