[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: trivial-cite attribution problem
From: |
Sebastien Kirche |
Subject: |
Re: trivial-cite attribution problem |
Date: |
Sun, 12 Sep 2004 16:01:56 +0200 |
User-agent: |
Gnus/5.1006 (Gnus v5.10.6) Emacs/21.3.50 (gnu/linux) |
Le 9 sep 2004, Sebastien Kirche a formulé :
> > > [about single name problem]
> >
> > I have a *vague* memory that I had the same problem, and got the
> > following piece of advice.
> >
> > (setq mail-extr-ignore-single-names nil)
> >
> > Does it help?
>
> Yeah ! :) Just what i need.
I have noticed a problem with address matching : if the address is in the
form someone <someone@somewhere>, the single name is void by design.
I have found the following in mail-extr.el :
,----
| ;; Nuke name if it is the same as mailbox name.
| (let ((buffer-length (- (point-max) (point-min)))
| (i 0)
| (names-match-flag t))
| (when (and (> buffer-length 0)
| (eq buffer-length (- mbox-end mbox-beg)))
| (goto-char (point-max))
| (insert-buffer-substring canonicalization-buffer
| mbox-beg mbox-end)
| (while (and names-match-flag
| (< i buffer-length))
| (or (eq (downcase (char-after (+ i (point-min))))
| (downcase
| (char-after (+ i buffer-length (point-min)))))
| (setq names-match-flag nil))
| (setq i (1+ i)))
| (delete-region (+ (point-min) buffer-length) (point-max))
| (if names-match-flag
| (narrow-to-region (point) (point)))))
|
| ;; Nuke name if it's just one word.
| (goto-char (point-min))
| (and mail-extr-ignore-single-names
| (not (re-search-forward "[- ]" nil t))
| (narrow-to-region (point) (point)))
|
`----
As i can see : the ignore single name can be inhibited with the
mail-extr-ignore-single-names, but there is no mean for the real name equal
to mailbox name...
Maybe would it be worth to define a new custom variable for that setting,
but i am not sure of myself to make some proper code. I suppose i can copy
on the mail-extr-ignore-single-names model ?
SĂ©bastien Kirche