Mercurial > emacs
comparison lisp/mail/mail-extr.el @ 59996:aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Change development version from 21.3.50 to 22.0.50.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Wed, 09 Feb 2005 15:50:47 +0000 |
| parents | dd2896f4c2b7 |
| children | 18a818a2ee7c 3ebd9bdb4fe5 |
comparison
equal
deleted
inserted
replaced
| 59995:8f4938738427 | 59996:aac0a33f5772 |
|---|---|
| 229 (defcustom mail-extr-ignore-single-names nil | 229 (defcustom mail-extr-ignore-single-names nil |
| 230 "*Whether to ignore a name that is just a single word. | 230 "*Whether to ignore a name that is just a single word. |
| 231 If true, then when we see an address like \"Idiot <dumb@stupid.com>\" | 231 If true, then when we see an address like \"Idiot <dumb@stupid.com>\" |
| 232 we will act as though we couldn't find a full name in the address." | 232 we will act as though we couldn't find a full name in the address." |
| 233 :type 'boolean | 233 :type 'boolean |
| 234 :version "21.4" | 234 :version "22.1" |
| 235 :group 'mail-extr) | 235 :group 'mail-extr) |
| 236 | 236 |
| 237 (defcustom mail-extr-ignore-realname-equals-mailbox-name t | 237 (defcustom mail-extr-ignore-realname-equals-mailbox-name t |
| 238 "*Whether to ignore a name that is equal to the mailbox name. | 238 "*Whether to ignore a name that is equal to the mailbox name. |
| 239 If true, then when the address is like \"Single <single@address.com>\" | 239 If true, then when the address is like \"Single <single@address.com>\" |
| 1409 (downcase | 1409 (downcase |
| 1410 (char-after (+ i buffer-length (point-min))))) | 1410 (char-after (+ i buffer-length (point-min))))) |
| 1411 (setq names-match-flag nil)) | 1411 (setq names-match-flag nil)) |
| 1412 (setq i (1+ i))) | 1412 (setq i (1+ i))) |
| 1413 (delete-region (+ (point-min) buffer-length) (point-max)) | 1413 (delete-region (+ (point-min) buffer-length) (point-max)) |
| 1414 (and names-match-flag | 1414 (and names-match-flag |
| 1415 mail-extr-ignore-realname-equals-mailbox-name | 1415 mail-extr-ignore-realname-equals-mailbox-name |
| 1416 (narrow-to-region (point) (point))))) | 1416 (narrow-to-region (point) (point))))) |
| 1417 | 1417 |
| 1418 ;; Nuke name if it's just one word. | 1418 ;; Nuke name if it's just one word. |
| 1419 (goto-char (point-min)) | 1419 (goto-char (point-min)) |