Commit e7424f06 authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

gnus-gravatar.el (gnus-gravatar-transform-address): Decode name again.

 (gnus-gravatar-insert): Put avatar always in the beginning of the field.
parent f48fe1f0
2010-11-20 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-gravatar.el (gnus-gravatar-transform-address): Decode name again.
(gnus-gravatar-insert): Put avatar always in the beginning of the field.
2010-11-19 Katsumi Yamaoka <yamaoka@jpl.org>
 
* gnus-art.el (gnus-mime-display-single)
......
......@@ -63,11 +63,13 @@
(gravatar-size gnus-gravatar-size)
name)
(dolist (address addresses)
(when (setq name (cdr address))
(setcdr address (setq name (mail-decode-encoded-word-string name))))
(when (or force
(not (and gnus-gravatar-too-ugly
(or (string-match gnus-gravatar-too-ugly
(car address))
(and (setq name (cdr address))
(and name
(string-match gnus-gravatar-too-ugly
name))))))
(ignore-errors
......@@ -87,12 +89,12 @@ Set image category to CATEGORY."
(mail-header-narrow-to-field)
(let ((real-name (cdr address))
(mail-address (car address)))
(when (if real-name ; have a realname, go for it!
(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)))
(when (if real-name
(re-search-forward (concat (regexp-quote real-name) "\\|"
(regexp-quote mail-address))
nil t)
(search-forward mail-address nil t))
(goto-char (1- (match-beginning 0)))
;; If we're on the " quoting the name, go backward
(when (looking-at "[\"<]")
(goto-char (1- (point))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment