Mercurial > emacs

comparison lisp/gnus/gnus-gravatar.el @ 110661:2b8ece636433

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge changes made in Gnus trunk. nndraft.el (nndraft-request-expire-articles): Use the group name instead if "nndraft". gnus.texi (Using IMAP): Remove the @acronyms from the headings. nnregistry.el: Added. nnimap.el (nnimap-insert-partial-structure): Be way more permissive when interpreting the structures. GNUS-NEWS: Minor error in GNUS-NEWS - password-cache.el. nnimap.el (nnimap-request-accept-article): Add \r\n to the lines to make this work with Cyrus. gnus-registry.el: Don't prompt on load, which makes it impossible to build Gnus. gnus-gravatar.el: Add gnus-gravatar-properties. gnus-agent.el, gnus-art.el, gnus-bookmark.el, gnus-dired.el, gnus-group.el,\ gnus-int.el, gnus-msg.el, gnus-registry.el, gnus-score.el, gnus-srvr.el,\ gnus-sum.el, gnus-topic.el, gnus-util.el, gnus.el, mm-decode.el, mm-util.el,\ mm-view.el, mml-smime.el, mml.el, nnmairix.el, nnrss.el, smime.el:\ Introduce gnus-completing-read. gnus-util.el: Make completing-read function configurable. gnus-util.el: Add requires and fix history for iswitchb. webmail.el: Remove netscape/my-deja, since they no longer exist. gnus.el (gnus-local-domain): Declare variable obsolete. nnimap.el (nnimap-insert-partial-structure): Get the type from the correct slot, too. pop3.el (pop3-send-streaming-command, pop3-stream-length): New variable. nnimap.el (nnimap-open-connection): Revert the auto-network->starttls code. nnimap.el (nnimap-request-set-mark): Erase the buffer before issuing commands. nnimap.el (nnimap-split-rule): Mark as obsolete. gnus-sum.el (gnus-valid-move-group-p): Make sure that `group' is a symbol. nnimap.el (nnimap-split-incoming-mail): Allow `default' as nnimap-split-methods value. nnimap.el (nnimap-request-article): Downcase the NILs so that they are nil. nndoc.el (nndoc-retrieve-groups): New function. gnus.texi: Fix Gravatar documentation.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Thu, 30 Sep 2010 08:39:23 +0000
parents 05430cec48ff
children 4c31586ca1ca
comparison
equal deleted inserted replaced
110660:4b5aaeebe785 110661:2b8ece636433
31 :group 'gnus-visual) 31 :group 'gnus-visual)
32 32
33 (defcustom gnus-gravatar-size 32 33 (defcustom gnus-gravatar-size 32
34 "How big should gravatars be displayed." 34 "How big should gravatars be displayed."
35 :type 'integer 35 :type 'integer
36 :version "24.1"
36 :group 'gnus-gravatar) 37 :group 'gnus-gravatar)
37 38
38 (defcustom gnus-gravatar-relief 1 39 (defcustom gnus-gravatar-properties '(:ascent center :relief 1)
39 "If non-nil, adds a shadow rectangle around the image. The 40 "List of image properties applied to Gravatar images."
40 value, relief, specifies the width of the shadow lines, in 41 :type 'list
41 pixels. If relief is negative, shadows are drawn so that the 42 :version "24.1"
42 image appears as a pressed button; otherwise, it appears as an
43 unpressed button."
44 :group 'gnus-gravatar) 43 :group 'gnus-gravatar)
45 44
46 (defun gnus-gravatar-transform-address (header category) 45 (defun gnus-gravatar-transform-address (header category)
47 (gnus-with-article-headers 46 (gnus-with-article-headers
48 (let ((addresses 47 (let ((addresses
86 (unless (memq 'gnus-gravatar (text-properties-at (point))) 85 (unless (memq 'gnus-gravatar (text-properties-at (point)))
87 (let ((inhibit-read-only t) 86 (let ((inhibit-read-only t)
88 (point (point)) 87 (point (point))
89 (gravatar (append 88 (gravatar (append
90 gravatar 89 gravatar
91 `(:ascent center :relief ,gnus-gravatar-relief)))) 90 gnus-gravatar-properties)))
92 (gnus-put-image gravatar nil category) 91 (gnus-put-image gravatar nil category)
93 (put-text-property point (point) 'gnus-gravatar address) 92 (put-text-property point (point) 'gnus-gravatar address)
94 (gnus-add-wash-type category) 93 (gnus-add-wash-type category)
95 (gnus-add-image category gravatar)))))))) 94 (gnus-add-image category gravatar))))))))
96 95