From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Sat, 18 Dec 1999 16:05:17 +0000 (+0000)
Subject: Convert to symbol if stringp.
X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=2d01d454442aade8de6f5df27a1d7435acc4cbfa;p=gnus

Convert to symbol if stringp.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index da8bf8dd5..a381bf883 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+1999-12-18 11:02:00  Shenghuo ZHU  <zsh@cs.rochester.edu>
+
+	* gnus-agent.el (gnus-agent-expire): Convert to symbol if stringp.
+
 1999-12-18  Simon Josefsson  <jas@pdc.kth.se>
 
 	* imap.el: Don't autoload digest-md5.
diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index b4c1d4700..cc10366a6 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1454,8 +1454,9 @@ The following commands are available:
 		    (forward-line 1)
 		  ;; Old article.  Schedule it for possible nuking.
 		  (while (not (eolp))
-		    (setq sym (let ((obarray expiry-hashtb))
-				(read (current-buffer))))
+		    (setq sym (let ((obarray expiry-hashtb) s)
+				(setq s (read (current-buffer)))
+				(if (stringp s) (intern s) s)))
 		    (if (boundp sym)
 			(set sym (cons (cons (read (current-buffer)) (point))
 				       (symbol-value sym)))