lisp/ChangeLog addition:

2002-04-29  Nevin Kapur  <nevin@jhu.edu>

	* gnus.el (gnus-find-subscribed-addresses): Return nil when there
	are no subscribed mail groups.
        - Strip quoted names when comparing addresses

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5accffd..3a197e7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-04-29  Nevin Kapur  <nevin@jhu.edu>
+
+       * gnus.el (gnus-find-subscribed-addresses): Return nil when there
+       are no subscribed mail groups.
+        - Strip quoted names when comparing addresses
+
 2002-04-28  Jesper Harder  <harder@ifa.au.dk>
 
        * mm-decode.el (mm-text-html-renderer): Change customize type to

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 9cca7da..505930f 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -2404,11 +2404,13 @@ with a `subscribed' parameter."
     (dolist (entry (cdr gnus-newsrc-alist))
       (setq group (car entry))
       (when (gnus-group-find-parameter group 'subscribed)
-       (setq address (or (gnus-group-fast-parameter group 'to-address)
-                         (gnus-group-fast-parameter group 'to-list)))
+       (setq address (mail-strip-quoted-names
+                      (or (gnus-group-fast-parameter group 'to-address)
+                          (gnus-group-fast-parameter group 'to-list))))
        (when address
          (push address addresses))))
-    (list (mapconcat 'regexp-quote addresses "\\|"))))
+    (when addresses
+      (list (mapconcat 'regexp-quote addresses "\\|")))))
 
 (defmacro gnus-string-or (&rest strings)
   "Return the first element of STRINGS that is a non-blank string.