Gnus-alias sporadic problem -- Needs Gnus expert

[Fabrice Niessen]

Hello,

I am a very happy user of Gnus-alias.el v1.4. It provides me
with great features I've always wanted, and is a reason why I
can't switch back to programs like Outlook or Thunderbird:

    o   the handling of multiple email addresses,
    o   the automatic decisions about which to use in which
        context, and
    o   the possibility to change that on the fly.

That works almost perfectly. But, since a moment, I have the
following error when replying to some emails:

    ,----
    | progn: Search failed: "^\\(.+\\):"
    `----

This *always* occurs with the mails of some of my colleagues,
and more or less often with other mails as well.

I don't know if this is related or not, but, for example, it
always occurs when I reply to mails of one of my colleagues who
is always using `mutt' for composing his emails. Is the
formatting of such mails a bit different? Are some assumptions
false in that case??

What's sure is that when replying to mails of that colleague
(pressing `R'), I've the above error popping up, and the
contents of the email is not inserted in my buffer (and prefixed
by `> ' as it is, when things normally work)... I have to
manually switch back to his email, copy/paste its contents to
the message buffer, and prefix it...

Same behavior, sometimes, when I want to change my personality
on the fly. Then, a /workaround/ consists of adding a colon
(`:') after the signature separator `-- ', and only then I can
change my personality with success (using the command
`gnus-alias-select-identity').

I've been able to find the line (in gnus-alias.el) that's
provoking the above error:

--8<---------------cut here---------------start------------->8---
(defun gnus-alias-position-on-field (header)
  "Lookup afters value for HEADER and call `message-position-on-field'.

If HEADER is in `gnus-alias-extra-header-pos-alist', look up its value
and pass into `message-position-on-field' as the value for AFTERS.  If
it's not, simply position the field at the end of the header list (not
the beginning as is normal)."
  (let ((afters (car-safe
                 (cdr-safe
                  (assoc-ignore-case header gnus-alias-extra-header-pos-alist)
                  ))))

    ;; adjust it a little
    (setq afters
          (if afters
              ;; just split string into parts
              (split-string afters)
            ;; goto end of header, backup a line, use that header
            (message-goto-eoh)
            (forward-line -1)
            (save-match-data
              (re-search-forward "^\\(.+\\):")  ; <--- HERE IT IS!!
              (list (match-string-no-properties 1)))
            ))

    ;; call message-position-on-field with whatever we've got
    (apply 'message-position-on-field header afters)))
--8<---------------cut here---------------end--------------->8---

But I don't know what to change...

Can some expert about Gnus internals help me?

Best regards,
  Fabrice Niessen

_________________________________________________________________________
Fabrice Niessen
Search the Web with "My Google Search Tools" on http://www.MyGooglest.com