Mercurial > emacs
comparison lisp/gnus/gnus-ems.el @ 110596:415e87a42437
mail-source.el (mail-source-value): Revert previous patch.
gnus-picon.el: Inhibit showing picons for top level domains.
gnus-art.el (gnus-article-treat-body-boundary): Fix length computing.
gnus-news.texi: Mention nnimap-inbox.
nnimap.el (nnimap-request-expire-articles): Compress ranges before deletion.
nnimap.el (nnimap-retrieve-headers): Don't select the group, because that's already done by nnimap-possibly-change-group.
gnus-html.el (gnus-html-show-images): Fix gnus-html-display-image arguments.
gnus-html.el (gnus-html-wash-images): Fix spec computing to include start/end.
nnimap.el: Store the IMAP greeting, so that we can tell what kind of server we're talking to.
gnus.el (gnus): Give a final warning after startup.
gnus-ems.el (gnus-create-image): Ignore all image-creation errors.
nndraft.el (nndraft-request-expire-articles): Fetch the expiry target for the correct group.
nnmh.el (nnmh-request-expire-articles): Don't try to fetch the expiry target here, because we don't know the Gnus name of the group.
nnimap.el (nnimap-get-whole-article): Remove the data that may have arrived before the FETCH data.
gnus-agent.el (gnus-agent-retrieve-headers): Don't propagate `fetch-old'.
gnus-agent.el (gnus-agent-read-servers-validate): Change the level for the "Ignoring disappeared server" to something low.
nndoc.el (nndoc-request-list): Return success always.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Sun, 26 Sep 2010 23:01:31 +0000 |
parents | 4f369250ec80 |
children | 05430cec48ff |
comparison
equal
deleted
inserted
replaced
110595:ba4c4d4dddf5 | 110596:415e87a42437 |
---|---|
270 (defun gnus-create-image (file &optional type data-p &rest props) | 270 (defun gnus-create-image (file &optional type data-p &rest props) |
271 (let ((face (plist-get props :face))) | 271 (let ((face (plist-get props :face))) |
272 (when face | 272 (when face |
273 (setq props (plist-put props :foreground (face-foreground face))) | 273 (setq props (plist-put props :foreground (face-foreground face))) |
274 (setq props (plist-put props :background (face-background face)))) | 274 (setq props (plist-put props :background (face-background face)))) |
275 (apply 'create-image file type data-p props))) | 275 (ignore-errors |
276 (apply 'create-image file type data-p props)))) | |
276 | 277 |
277 (defun gnus-put-image (glyph &optional string category) | 278 (defun gnus-put-image (glyph &optional string category) |
278 (let ((point (point))) | 279 (let ((point (point))) |
279 (insert-image glyph (or string " ")) | 280 (insert-image glyph (or string " ")) |
280 (put-text-property point (point) 'gnus-image-category category) | 281 (put-text-property point (point) 'gnus-image-category category) |