Mercurial > hg > xemacs-beta

comparison lisp/utils/mail-extr.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents 360340f9fd5f
children 3bb7ccffb0c0
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
234 "*Whether the local mail transport agent looks at ! before @.") 234 "*Whether the local mail transport agent looks at ! before @.")
235 235
236 (defvar mail-extr-mangle-uucp nil 236 (defvar mail-extr-mangle-uucp nil
237 "*Whether to throw away information in UUCP addresses 237 "*Whether to throw away information in UUCP addresses
238 by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\".") 238 by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\".")
239
240 (defvar mail-extr-mailbox-match-case-fold t
241 "*Non-nil if mailbox and name matching should ignore case.")
239 242
240 ;;---------------------------------------------------------------------- 243 ;;----------------------------------------------------------------------
241 ;; what orderings are meaningful????? 244 ;; what orderings are meaningful?????
242 ;;(defvar mail-operator-precedence-list '(?! ?% ?@)) 245 ;;(defvar mail-operator-precedence-list '(?! ?% ?@))
243 ;; Right operand of a % or a @ must be a domain name, period. No other 246 ;; Right operand of a % or a @ must be a domain name, period. No other
1410 (goto-char (point-max)) 1413 (goto-char (point-max))
1411 (insert-buffer-substring canonicalization-buffer 1414 (insert-buffer-substring canonicalization-buffer
1412 mbox-beg mbox-end) 1415 mbox-beg mbox-end)
1413 (while (and names-match-flag 1416 (while (and names-match-flag
1414 (< i buffer-length)) 1417 (< i buffer-length))
1415 (or (eq (downcase (char-after (+ i (point-min)))) 1418 (or (eq (let ((c (char-after (+ i (point-min)))))
1419 (if mail-extr-mailbox-match-case-fold
1420 (downcase c)
1421 c))
1416 (downcase 1422 (downcase
1417 (char-after (+ i buffer-length (point-min))))) 1423 (char-after (+ i buffer-length (point-min)))))
1418 (setq names-match-flag nil)) 1424 (setq names-match-flag nil))
1419 (setq i (1+ i))) 1425 (setq i (1+ i)))
1420 (delete-region (+ (point-min) buffer-length) (point-max)) 1426 (delete-region (+ (point-min) buffer-length) (point-max))