Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-picon.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
209 (interactive) 209 (interactive)
210 (let (from at-idx databases) 210 (let (from at-idx databases)
211 (when (and (featurep 'xpm) 211 (when (and (featurep 'xpm)
212 (or (not (fboundp 'device-type)) (equal (device-type) 'x)) 212 (or (not (fboundp 'device-type)) (equal (device-type) 'x))
213 (setq from (mail-fetch-field "from")) 213 (setq from (mail-fetch-field "from"))
214 (setq from (downcase (cadr (mail-extract-address-components 214 (setq from (downcase (or (cadr (mail-extract-address-components
215 from))) 215 from))
216 ""))
216 at-idx (string-match "@" from))) 217 at-idx (string-match "@" from)))
217 (save-excursion 218 (save-excursion
218 (let ((username (substring from 0 at-idx)) 219 (let ((username (substring from 0 at-idx))
219 (addrs (nreverse 220 (addrs (nreverse
220 (message-tokenize-header (substring from (1+ at-idx)) 221 (message-tokenize-header (substring from (1+ at-idx))