Moin Uwe,
Nice idea, thx for sharing. Some comments below:
> Adding (gnus-summary-select-article-buffer)
>
> Solves the problem somehow:
> (defun check-my-to-field ()
> "This function will be run before you execute followup. And it
> warns you if your email address is not in the To field. That
> warning is a safty message if you had been only on the BCC
> field!!"
> (interactive)
> (gnus-summary-select-article-buffer)
Hmm, but you don't want to select that buffer, right? I would at least
wrap the whole thing in an appropriate excursion
(`save-window-excursion'?) But maybe we find a better suited function.
Doesn't (with-current-buffer gnus-article-buffer ...) suffice?
> (unless
> (string-match user-mail-address (message-fetch-field "To"))
Slightly better:
(string-match-p (regexp-quote user-mail-address)
(message-fetch-field "To"))
> (error
> (progn
> (message "Aborted, you are not in the To: field!!!"))))))
Either `error', then with string + arg, or a message. We don't have a
condition-case handler here, right? I'd use `user-error'.
> (defadvice gnus-article-followup-with-original (before mychecktofield
> activate)
> "This function will be run before you execute followup. It warns you if
> your email address is not in the To field. That
> warning is a safty message if you had been only on the BCC field!!"
> (check-my-to-field))
>
> (defadvice gnus-summary-followup-with-original (before mychecktofield
> activate)
> "This function will be run before you execute followup. It warns you if
> your email address is not in the To field. That
> warning is a safty message if you had been only on the BCC field!!"
> (check-my-to-field))
Is there some hook one could alternatively use for this functionality?
We could check `this-command' to include only commands we want to
influence.
Michael.
