* gnus-util.el (gnus-extract-address-component-name)

(gnus-extract-address-component-email): Convenience functions around
`gnus-extract-address-components'.

* gnus-registry.el (gnus-registry-split-fancy-with-parent): Use
`gnus-extract-address-component-email' to fix bug of comparing full
sender name to `user-mail-address'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index de395ef..4154ef8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
+2008-05-07  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * gnus-util.el (gnus-extract-address-component-name)
+       (gnus-extract-address-component-email): Convenience functions around
+       `gnus-extract-address-components'.
+
+       * gnus-registry.el (gnus-registry-split-fancy-with-parent): Use
+       `gnus-extract-address-component-email' to fix bug of comparing full
+       sender name to `user-mail-address'.
+
 2008-05-05  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus-registry.el (gnus-registry-grep-in-list): Fix logic, use

diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el
index cec3ffd..85b7409 100644 (file)
--- a/lisp/gnus-registry.el
+++ b/lisp/gnus-registry.el
@@ -525,7 +525,8 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
      ;; else: there were no matches, now try the extra tracking by sender
      ((and (gnus-registry-track-sender-p)
           sender
-          (not (equal sender user-mail-address)))
+          (not (equal (gnus-extract-address-component-email sender)
+                      user-mail-address)))
       (maphash
        (lambda (key value)
         (let ((this-sender (cdr

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 637703c..c835d77 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -195,6 +195,15 @@ is slower."
                                   (match-end 0)))))
     (list (if (string= name "") nil name) (or address from))))
 
+(defun gnus-extract-address-component-name (from)
+  "Extract name from a From header.
+Uses `gnus-extract-address-components'."
+  (nth 0 (gnus-extract-address-components from)))
+
+(defun gnus-extract-address-component-email (from)
+  "Extract e-mail address from a From header.
+Uses `gnus-extract-address-components'."
+  (nth 1 (gnus-extract-address-components from)))
 
 (defun gnus-fetch-field (field)
   "Return the value of the header FIELD of current article."