[PATCH] MFT generation

[PATCH] MFT generation

[Nevin Kapur]

Please consider the following patch which fixes the current behavior
of Gnus that generates the regexp "" when no subscribed groups are
found.  This results in MFTs that point back to the recepient of the
message.

The second modification is to canonicalize addresses before adding
them to the subscribed list.  I submitted this once before.  People
seemed to agree that this was the right behavior but the patch was not
applied.


2002-04-28  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


Index: gnus.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus.el,v
retrieving revision 6.108
diff -u -r6.108 gnus.el
--- gnus.el	2002/04/11 14:02:08	6.108
+++ gnus.el	2002/04/29 02:50:20
@@ -2404,11 +2404,13 @@
     (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.


-- 
Nevin

Re: [PATCH] MFT generation

[Josh Huber]

Nevin Kapur <nevin@jhu.edu> writes:

> 2002-04-28  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

I've applied this.

-- 
Josh Huber