Mercurial > hg > xemacs-beta

comparison lisp/utils/mail-extr.el @ 38:1a767b41a199 r19-15b102

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b102
author cvs
date Mon, 13 Aug 2007 08:54:01 +0200
parents ec9a17fef872
children 131b0175ea99
comparison
equal deleted inserted replaced
37:ad40ac360d14 38:1a767b41a199
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))