Changes committed gnus/lisp (ChangeLog gnus-registry.el mail-source.el)

Modified: ChangeLog gnus-registry.el mail-source.el

* gnus-registry.el (gnus-registry-split-fancy-with-parent): Don't split
by sender if it's equal to user-mail-address, it's likely to be
useless.

* mail-source.el (mail-source-bind): Don't use server unless
it's bound, and default it to empty string otherwise.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1838 gnus/lisp/ChangeLog:7.1839
--- ChangeLog:7.1838	Sat Apr 26 14:47:15 2008
+++ ChangeLog	Sat Apr 26 14:54:20 2008
@@ -1,7 +1,12 @@
 2008-04-26  Teodor Zlatanov  <[email protected]>
 
+	* gnus-registry.el (gnus-registry-split-fancy-with-parent): Don't split
+	by sender if it's equal to user-mail-address, it's likely to be
+	useless.
+
 	* mail-source.el (mail-source-bind): Don't use user or password if they
-	are not bound.  Unintern them if they are nil.
+	are not bound.  Unintern them if they are nil.  Don't use server unless
+	it's bound, and default it to empty string otherwise.
 
 2008-04-25  Teodor Zlatanov  <[email protected]>
 
Index: gnus-registry.el
diff -u gnus/lisp/gnus-registry.el:7.58 gnus/lisp/gnus-registry.el:7.59
--- gnus-registry.el:7.58	Fri Apr 25 20:42:18 2008
+++ gnus-registry.el	Sat Apr 26 14:54:20 2008
@@ -523,8 +523,9 @@
 		   "references" refstr found found)))
      
      ;; else: there were no matches, now try the extra tracking by sender
-     ((and (gnus-registry-track-sender-p) 
-	   sender)
+     ((and (gnus-registry-track-sender-p)
+	   sender
+	   (not (equal sender user-mail-address)))
       (maphash
        (lambda (key value)
 	 (let ((this-sender (cdr
Index: mail-source.el
diff -u gnus/lisp/mail-source.el:7.34 gnus/lisp/mail-source.el:7.35
--- mail-source.el:7.34	Sat Apr 26 14:47:15 2008
+++ mail-source.el	Sat Apr 26 14:54:20 2008
@@ -455,14 +455,16 @@
 	    (or
 	     (auth-source-user-or-password
 	      "login"
-	      server	      ; this is "host" in auth-sources
+	      ;; this is "host" in auth-sources
+	      (if (boundp 'server) (symbol-value 'server) "")
 	      ',(car type-source))
 	     (when (boundp 'user) (symbol-value 'user))))
 	   (password 
 	    (or
 	     (auth-source-user-or-password 
 	      "password"
-	      server	      ; this is "host" in auth-sources
+	      ;; this is "host" in auth-sources
+	      (if (boundp 'server) (symbol-value 'server) "")
 	      ',(car type-source))
 	     (when (boundp 'user) (symbol-value 'user)))))
        (unless user