Mercurial > hg > xemacs-beta

comparison lisp/utils/mail-extr.el @ 6:27bc7f280385 r19-15b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b4
author cvs
date Mon, 13 Aug 2007 08:47:15 +0200
parents ac2d302a0011
children 0293115a14e9
comparison
equal deleted inserted replaced
5:49b78a777eb4 6:27bc7f280385
1169 (insert "@") 1169 (insert "@")
1170 (setq %-pos (cdr %-pos)))) 1170 (setq %-pos (cdr %-pos))))
1171 1171
1172 (setq %-pos (nreverse %-pos)) 1172 (setq %-pos (nreverse %-pos))
1173 ;; RFC 1034 doesn't approve of this, oh well: 1173 ;; RFC 1034 doesn't approve of this, oh well:
1174 (downcase-region (or (car %-pos) @-pos (point-max)) (point-max)) 1174 ;; Neither do we, sb/lmi
1175 ;; (downcase-region (or (car %-pos) @-pos (point-max)) (point-max))
1175 (cond (%-pos ; implies @-pos valid 1176 (cond (%-pos ; implies @-pos valid
1176 (setq temp %-pos) 1177 (setq temp %-pos)
1177 (catch 'truncated 1178 (catch 'truncated
1178 (while temp 1179 (while temp
1179 (goto-char (or (nth 1 temp) 1180 (goto-char (or (nth 1 temp)