(if gnus-local-domain
(nreverse (message-tokenize-header
gnus-local-domain "."))
- '(""))
+ '("."))
(nreverse (message-tokenize-header
(substring from (1+ at-idx)) ".")))))
(set-buffer (get-buffer-create
(domainp (and gnus-picons-display-as-address dots))
picons found bar-ann cur first)
(when (string-match "/MISC" database)
- (setq addrs '("")))
+ (setq addrs '(".")))
(while (and addrs
(file-accessible-directory-p path))
(setq cur (pop addrs)
picons)))
(when domainp
(setq picons
- (nconc (list (make-annotation
- (if first (concat (if (not rightp) ".") cur
- (if rightp ".")) cur)
- (point) 'text nil nil nil rightp))
- picons))))
+ (nconc
+ (list (make-annotation
+ (if first (concat (if (not rightp) ".") cur
+ (if rightp ".")) cur)
+ (point) 'text nil nil nil rightp))
+ picons))))
(when (and bar (or domainp found))
(setq bar-ann (gnus-picons-try-to-find-face
(concat gnus-xmas-glyph-directory "bar.xbm")
(setq first t))
(when (and addrs domainp)
(let ((it (mapconcat 'downcase (nreverse addrs) ".")))
- (make-annotation
- (if first (concat (if (not rightp) ".") it (if rightp ".")) it)
- (point) 'text nil nil nil rightp)))
+ (setq picons
+ (nconc picons (list (make-annotation
+ (if first
+ (concat (if (not rightp) ".")
+ it (if rightp "."))
+ it)
+ (point) 'text
+ nil nil nil rightp))))))
picons))
(defvar gnus-picons-glyph-alist nil)