+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
;; 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
(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."