2010-09-28 Julien Danjou <julien@danjou.info>
+ * gnus-gravatar.el (gnus-gravatar-insert): Fix search in case
+ mail-address contains the same string as real-name.
+
* gnus-ems.el (gnus-put-image): Revert Lars, change and insert
non-blank in header, otherwise it'll get stripped.
(gnus-with-article-headers
(gnus-article-goto-header header)
(mail-header-narrow-to-field)
- (goto-char (point-max))
(let ((real-name (cdr address))
(mail-address (car address)))
(when (if real-name ; have a realname, go for it!
- (search-backward real-name)
- (search-backward address))
+ (and (search-forward real-name nil t)
+ (search-backward real-name nil t))
+ (and (search-forward mail-address nil t)
+ (search-backward mail-address nil t)))
(goto-char (1- (point)))
;; If we're on the " quoting the name, go backward
(when (looking-at "\"")