mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

auth-source.el (auth-source-create): Query the user for whether to store the credentials.

Browse source 
auth-source.el: Require netrc.
nnml.el (nnml-open-nov): Don't return dead buffers.
gnus-picon.el (gnus-picon-xbm): Removed obsolete face.
gnus-picon.el (gnus-picon-insert-glyph): Make the background white.
gnus-art.el (gnus-treatment-function-alist): Insert picons after doing the header highlightling.
This commit is contained in:
Lars Magne Ingebrigtsen 2010-09-26 13:25:35 +00:00 • committed by Katsumi Yamaoka
parent 2d04f304a2
commit 1821a7b491
7 changed files with 205 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/gnus/gnus-picon.el
View file

@ -85,19 +85,9 @@ added right to the textual representation."
(const right))
:group 'gnus-picon)
(defface gnus-picon-xbm '((t (:foreground "black" :background "white")))
"Face to show xbm picon in."
:group 'gnus-picon)
;; backward-compatibility alias
(put 'gnus-picon-xbm-face 'face-alias 'gnus-picon-xbm)
(put 'gnus-picon-xbm-face 'obsolete-face "22.1")
(defface gnus-picon '((t (:foreground "black" :background "white")))
"Face to show picon in."
:group 'gnus-picon)
;; backward-compatibility alias
(put 'gnus-picon-face 'face-alias 'gnus-picon)
(put 'gnus-picon-face 'obsolete-face "22.1")
;;; Internal variables:
@ -161,7 +151,9 @@ replacement is added."
(insert glyph)
(gnus-add-wash-type category)
(gnus-add-image category (car glyph))
(gnus-put-image (car glyph) (unless nostring (cdr glyph)) category)))
(let ((start (point)))
(gnus-put-image (car glyph) (unless nostring (cdr glyph)) category)
(put-text-property start (point) 'face 'gnus-picon))))
(defun gnus-picon-create-glyph (file)
(or (cdr (assoc file gnus-picon-glyph-alist))