Gnus: How to easily change "From:" from the default to a second account's address?

Gnus: How to easily change "From:" from the default to a second account's address?

[Marius Hofert]

Hi,

If I want to create a new message with "m", it shows my default email address in "From:" I specified with
(setq user-mail-address "my.name@uni.edu")
Since I have a second account (googlemail), every once in a while I would like to hav "From: my.name@googlemail.com" instead of "From: my.name@uni.edu". So far, I deleted the entry and typed in my gmail account's address. Is there a simpler way?
I also tried to hit "m" when the point is on my gmail account in the *Group* buffer, but that did not open a new message with the corresponding "From:" address... 

Cheers,

Marius

Re: Gnus: How to easily change "From:" from the default to a second account's address?

[Tassilo Horn]

Marius Hofert <marius.hofert@math.ethz.ch> writes:

Hi Marius,

> If I want to create a new message with "m", it shows my default email
> address in "From:" I specified with (setq user-mail-address
> "my.name@uni.edu") Since I have a second account (googlemail), every
> once in a while I would like to hav "From: my.name@googlemail.com"
> instead of "From: my.name@uni.edu". So far, I deleted the entry and
> typed in my gmail account's address. Is there a simpler way?

Yep, posting styles.

,----[ (info "(gnus)Posting Styles") ]
|    So what if you want a different `Organization' and signature based
| on what groups you post to?  And you post both from your home machine
| and your work machine, and you want different `From' lines, and so on?
`----

> I also tried to hit "m" when the point is on my gmail account in the
> *Group* buffer, but that did not open a new message with the
> corresponding "From:" address...

,----[ C-h k m (in *Group*) ]
| m runs the command gnus-group-mail, which is an interactive compiled Lisp
| function in `gnus-msg.el'.
| 
| It is bound to m, <menu-bar> <Gnus> <Send a mail>.
| 
| (gnus-group-mail &optional ARG)
| 
| Start composing a mail.
| If ARG, use the group under the point to find a posting style.
| If ARG is 1, prompt for a group name to find the posting style.
`----

The way to set the ARG when invoking a commant with M-x or a key binding
is to prefix it with `C-u'.  So if you already have a posting style
defined for the group point is on, `C-u m' will use that for the new
mail.

Bye,
Tassilo
-- 
(What the world needs (I think) is not
      (a Lisp (with fewer parentheses))
      but (an English (with more.)))
Brian Hayes, http://tinyurl.com/3y9l2kf

Re: Gnus: How to easily change "From:" from the default to a second account's address?

[Marius Hofert]

Hi Tassilo,

works flawlessly, many thanks (once again).

Cheers,

Marius


On 2011-11-23, at 17:35 , Tassilo Horn wrote:

> Marius Hofert <marius.hofert@math.ethz.ch> writes:
> 
> Hi Marius,
> 
>> If I want to create a new message with "m", it shows my default email
>> address in "From:" I specified with (setq user-mail-address
>> "my.name@uni.edu") Since I have a second account (googlemail), every
>> once in a while I would like to hav "From: my.name@googlemail.com"
>> instead of "From: my.name@uni.edu". So far, I deleted the entry and
>> typed in my gmail account's address. Is there a simpler way?
> 
> Yep, posting styles.
> 
> ,----[ (info "(gnus)Posting Styles") ]
> |    So what if you want a different `Organization' and signature based
> | on what groups you post to?  And you post both from your home machine
> | and your work machine, and you want different `From' lines, and so on?
> `----
> 
>> I also tried to hit "m" when the point is on my gmail account in the
>> *Group* buffer, but that did not open a new message with the
>> corresponding "From:" address...
> 
> ,----[ C-h k m (in *Group*) ]
> | m runs the command gnus-group-mail, which is an interactive compiled Lisp
> | function in `gnus-msg.el'.
> | 
> | It is bound to m, <menu-bar> <Gnus> <Send a mail>.
> | 
> | (gnus-group-mail &optional ARG)
> | 
> | Start composing a mail.
> | If ARG, use the group under the point to find a posting style.
> | If ARG is 1, prompt for a group name to find the posting style.
> `----
> 
> The way to set the ARG when invoking a commant with M-x or a key binding
> is to prefix it with `C-u'.  So if you already have a posting style
> defined for the group point is on, `C-u m' will use that for the new
> mail.
> 
> Bye,
> Tassilo
> -- 
> (What the world needs (I think) is not
>      (a Lisp (with fewer parentheses))
>      but (an English (with more.)))
> Brian Hayes, http://tinyurl.com/3y9l2kf
> 
> 

Re: Gnus: How to easily change "From:" from the default to a second account's address?

[Philipp Haselwarter]

I often find myself wanting to change the From: after opening the
message; this allows picking one of your accounts:

#+begin_src emacs-lisp
(defcustom my-smtp-accounts nil
  "*list of available smtp accounts"
  :group 'smtpmail
  :type '(repeat alist))

(defun my-pick-smtp ()
  (interactive)
  (setq user-mail-address
        (let ((f (if (functionp 'ido-completing-read)
                     'ido-completing-read
                   completing-read)))
          (funcall f "Which smtp acc:" (mapcar 'cadr my-smtp-accounts))))
  (save-excursion
    (save-restriction
      (message-narrow-to-headers-or-head)
      (message-remove-header "From")
      (goto-char (point-max))
      (insert "From: " (message-make-from) "\n"))))

#+end_src

-- 
Philipp Haselwarter

Re: Gnus: How to easily change "From:" from the default to a second account's address?

[Eric Abrahamsen]

On Fri, Nov 25 2011, Philipp Haselwarter wrote:

> I often find myself wanting to change the From: after opening the
> message; this allows picking one of your accounts:

Is this much different from `message-alternative-emails'? I think that's
what I use to set my possible From addresses, and then TAB at the end of
the address will cycle through the possible addresses.

Eric

> #+begin_src emacs-lisp
> (defcustom my-smtp-accounts nil
>   "*list of available smtp accounts"
>   :group 'smtpmail
>   :type '(repeat alist))
>
> (defun my-pick-smtp ()
>   (interactive)
>   (setq user-mail-address
>         (let ((f (if (functionp 'ido-completing-read)
>                      'ido-completing-read
>                    completing-read)))
>           (funcall f "Which smtp acc:" (mapcar 'cadr my-smtp-accounts))))
>   (save-excursion
>     (save-restriction
>       (message-narrow-to-headers-or-head)
>       (message-remove-header "From")
>       (goto-char (point-max))
>       (insert "From: " (message-make-from) "\n"))))
>
> #+end_src

-- 
GNU Emacs 24.0.91.1 (i686-pc-linux-gnu, GTK+ Version 2.24.6)
 of 2011-11-07 on pellet

Re: Gnus: How to easily change "From:" from the default to a second account's address?

[Philipp Haselwarter]

Eric Abrahamsen <eric@ericabrahamsen.net> writes:

> On Fri, Nov 25 2011, Philipp Haselwarter wrote:
>
>> I often find myself wanting to change the From: after opening the
>> message; this allows picking one of your accounts:
>
> Is this much different from `message-alternative-emails'? I think that's
> what I use to set my possible From addresses, and then TAB at the end of
> the address will cycle through the possible addresses.
>
> Eric
>
---8<---[snipped 21 lines]---8<---

I didn't know about `message-alternative-emails', and setting From: from
To: or Cc: works nicely :) !

But I can't seem to cycle. Is that something that's supposed to work in
plain gnus (tried it without all my configs) or do I need to set up
something else?


-- 
Philipp Haselwarter

Re: Gnus: How to easily change "From:" from the default to a second account's address?

[Eric Abrahamsen]

On Sat, Nov 26 2011, Philipp Haselwarter wrote:

> Eric Abrahamsen <eric@ericabrahamsen.net> writes:
>
>> On Fri, Nov 25 2011, Philipp Haselwarter wrote:
>>
>>> I often find myself wanting to change the From: after opening the
>>> message; this allows picking one of your accounts:
>>
>> Is this much different from `message-alternative-emails'? I think that's
>> what I use to set my possible From addresses, and then TAB at the end of
>> the address will cycle through the possible addresses.
>>
>> Eric
>>
> ---8<---[snipped 21 lines]---8<---
>
> I didn't know about `message-alternative-emails', and setting From: from
> To: or Cc: works nicely :) !
>
> But I can't seem to cycle. Is that something that's supposed to work in
> plain gnus (tried it without all my configs) or do I need to set up
> something else?

Hmm, I'm not quite sure about this one, and it's hard to get a plain
config. As all the other message buffer cycling is provided by BBDB in
my case, it's possible that that's what's doing it for me. After I set
`message-alternative-emails' in my gnus.el, I also do this:

(setq bbdb-user-mail-address-re message-alternative-emails
      gnus-ignored-from-addresses message-alternative-emails)

That basically sorts all the "own emails" issues for me. Again, I
suspect it's BBDB that provides cycling.

Good luck,
Eric

-- 
GNU Emacs 24.0.91.1 (i686-pc-linux-gnu, GTK+ Version 2.24.6)
 of 2011-11-07 on pellet

Re: Gnus: How to easily change "From:" from the default to a second account's address?

[Johnny]

Eric Abrahamsen <eric@ericabrahamsen.net> writes:

> On Sat, Nov 26 2011, Philipp Haselwarter wrote:
>
>> Eric Abrahamsen <eric@ericabrahamsen.net> writes:
>>
>>> On Fri, Nov 25 2011, Philipp Haselwarter wrote:
>>>
>>>> I often find myself wanting to change the From: after opening the
>>>> message; this allows picking one of your accounts:
>>>
>>> Is this much different from `message-alternative-emails'? I think that's
>>> what I use to set my possible From addresses, and then TAB at the end of
>>> the address will cycle through the possible addresses.
>>>
>> I didn't know about `message-alternative-emails', and setting From: from
>> To: or Cc: works nicely :) !
>>
>> But I can't seem to cycle. 
> 
> [...] I suspect it's BBDB that provides cycling.

I don't use the `message-alternative-emails' at all, and I am quite sure
the cycling is provided by BBDB (3.02) by matching my records `mail'
field. These are the likely candidates to use in your .gnus.el file:

,----
| (setq bbdb-complete-name-allow-cycling t)
| (setq bbdb-complete-mail-allow-cycling t)
`----

-- 
Johnny

Re: Gnus: How to easily change "From:" from the default to a second account's address?

[Philipp Haselwarter]

Johnny <yggdrasil@gmx.co.uk> writes:

---8<---[snipped 25 lines]---8<---
>
> ,----
> | (setq bbdb-complete-name-allow-cycling t)
> | (setq bbdb-complete-mail-allow-cycling t)
> `----

I don't have the first one in bbdb3.02, but -mail- works like a charm :D

-- 
Philipp Haselwarter

Re: Gnus: How to easily change "From:" from the default to a second account's address?

[Harry Putnam]

Philipp Haselwarter <philipp.haselwarter@gmx.de> writes:

> Johnny <yggdrasil@gmx.co.uk> writes:
>
> ---8<---[snipped 25 lines]---8<---
>>
>> ,----
>> | (setq bbdb-complete-name-allow-cycling t)
>> | (setq bbdb-complete-mail-allow-cycling t)
>> `----
>
> I don't have the first one in bbdb3.02, but -mail- works like a charm :D

After going thru this thread a few times, I still am not `getting'
what you mean here.  Do you mind explaining in some detail what you
actually doing above?

Re: Gnus: How to easily change "From:" from the default to a second account's address?

[Richard Riley]

Harry Putnam <reader@newsguy.com> writes:

> Philipp Haselwarter <philipp.haselwarter@gmx.de> writes:
>
>> Johnny <yggdrasil@gmx.co.uk> writes:
>>
>> ---8<---[snipped 25 lines]---8<---
>>>
>>> ,----
>>> | (setq bbdb-complete-name-allow-cycling t)
>>> | (setq bbdb-complete-mail-allow-cycling t)
>>> `----
>>
>> I don't have the first one in bbdb3.02, but -mail- works like a charm :D
>
> After going thru this thread a few times, I still am not `getting'
> what you mean here.  Do you mind explaining in some detail what you
> actually doing above?
>


Q:What mechanism are you using to cycle? When I hit tab it shows my
3 or 4 emails matching the seed in another window and I have to switch
to that window and select it (bbdb 3.02).

Re: Gnus: How to easily change "From:" from the default to a second account's address?

[Johnny]

Richard Riley <rileyrg@gmail.com> writes:

> Harry Putnam <reader@newsguy.com> writes:
>
>> Philipp Haselwarter <philipp.haselwarter@gmx.de> writes:
>>
>>> Johnny <yggdrasil@gmx.co.uk> writes:
>>>
>>> ---8<---[snipped 25 lines]---8<---
>>>>
>>>> ,----
>>>> | (setq bbdb-complete-name-allow-cycling t)
>>>> | (setq bbdb-complete-mail-allow-cycling t)
>>>> `----
>>>
>>> I don't have the first one in bbdb3.02, but -mail- works like a charm :D
>>
>> After going thru this thread a few times, I still am not `getting'
>> what you mean here.  Do you mind explaining in some detail what you
>> actually doing above?
>>
>
>
> Q:What mechanism are you using to cycle? When I hit tab it shows my
> 3 or 4 emails matching the seed in another window and I have to switch
> to that window and select it (bbdb 3.02).
>

I am using TAB to cycle. Maybe the following line that I have in my
.gnus.el is suppressing the popup behaviour  you describe?

,----
| (setq bbdb-use-pop-up nil)
`----


-- 
Johnny

Re: Gnus: How to easily change "From:" from the default to a second account's address?

[Richard Riley]

Johnny <yggdrasil@gmx.co.uk> writes:

> Richard Riley <rileyrg@gmail.com> writes:
>
>> Harry Putnam <reader@newsguy.com> writes:
>>
>>> Philipp Haselwarter <philipp.haselwarter@gmx.de> writes:
>>>
>>>> Johnny <yggdrasil@gmx.co.uk> writes:
>>>>
>>>> ---8<---[snipped 25 lines]---8<---
>>>>>
>>>>> ,----
>>>>> | (setq bbdb-complete-name-allow-cycling t)
>>>>> | (setq bbdb-complete-mail-allow-cycling t)
>>>>> `----
>>>>
>>>> I don't have the first one in bbdb3.02, but -mail- works like a charm :D
>>>
>>> After going thru this thread a few times, I still am not `getting'
>>> what you mean here.  Do you mind explaining in some detail what you
>>> actually doing above?
>>>
>>
>>
>> Q:What mechanism are you using to cycle? When I hit tab it shows my
>> 3 or 4 emails matching the seed in another window and I have to switch
>> to that window and select it (bbdb 3.02).
>>
>
> I am using TAB to cycle. Maybe the following line that I have in my
> .gnus.el is suppressing the popup behaviour  you describe?
>
> ,----
> | (setq bbdb-use-pop-up nil)
> `----

Unfortunately not and its not documented as a variable either.

Re: Gnus: How to easily change "From:" from the default to a second account's address?

[Johnny]

Richard Riley <rileyrg@gmail.com> writes:

> Johnny <yggdrasil@gmx.co.uk> writes:
>
>> I am using TAB to cycle. Maybe the following line that I have in my
>> .gnus.el is suppressing the popup behaviour  you describe?
>>
>> ,----
>> | (setq bbdb-use-pop-up nil)
>> `----
>
> Unfortunately not and its not documented as a variable either.

Yes, I noticed as well as I was trying to trace as to why I put it there
in the first place! I know I struggled for a long time going between
BBDB 2.35 and 3. intitially to avoid the popup that asks to add /all/
unknown recepients into BBDB. I got rid of that behaviour and am not
sure why, but haven't got around to cleanse my .gnus.el since! 

Another candidate could be (sorry, I know I should try myself, but...)

,----
| (setq message-setup-hook
|       '(lambda ()
|          (define-key message-mode-map "\M-\t" 'mail-abbrev-complete-alias)))
`----

-- 
Johnny

RE: Gnus: How to easily change "From:" from the default to a second account's address?

[Memnon Anon]

Marius Hofert <marius.hofert@math.ethz.ch> writes:
[...]
> Since I have a second account (googlemail), every once in a while I
> would like to hav "From: my.name@googlemail.com" instead of "From:
> my.name@uni.edu". So far, I deleted the entry and typed in my gmail
> account's address. Is there a simpler way?
[...]

A little late, but I've been using gnus-pers for this for
quite some time.
  
  http://www.emacswiki.org/emacs/GnusPers

Part of debians gnus-bonus-el.

hth 
Memnon

Re: Gnus: How to easily change "From:" from the default to a second account's address?

[Teemu Likonen]

* 2011-11-23T17:24:49+01:00 * Marius Hofert wrote:

> If I want to create a new message with "m", it shows my default email
> address in "From:" [...] every once in a while I would like to hav
> "From: my.name@googlemail.com" instead of "From: my.name@uni.edu". So
> far, I deleted the entry and typed in my gmail account's address. Is
> there a simpler way?

Here's my solution for (1) setting up Gnus for several mail addresses
and (2) cycling them easily in a message-mode buffer (using F9 key).


    (setq user-full-name "User Name")

    (defvar my-email-addresses
      '("primary.address@internet.invalid"
        "other.address@somewhere.invalid"
        "yet.another@invalid"))

    ;; Set important variables

    (let ((addr my-email-addresses))
      (setq-default
       user-mail-address (car addr)
       message-alternative-emails (regexp-opt (cdr addr) 'words)
       message-dont-reply-to-names (regexp-opt addr 'words)
       gnus-ignored-from-addresses message-dont-reply-to-names))

    ;; The cycling functionality
    
    (add-hook 'message-mode-hook 'my-message-mode-hook)

    (defun my-message-mode-hook ()
      (define-key message-mode-map (kbd "<f9>")
        'my-message-toggle-from))

    (defun my-message-toggle-from ()
      (interactive)
      (require 'mail-extr)
      (let* ((current (nth 1 (mail-extract-address-components
                              (message-fetch-field "From"))))
             (next (or (nth 1 (member current my-email-addresses))
                       (nth 0 my-email-addresses))))

        (when (and current next)
          (save-excursion
            (save-restriction
              (message-narrow-to-head)
              (save-match-data
                (when (re-search-forward "^From: " nil t)
                  (message-narrow-to-field)
                  (delete-region (point-min) (point-max))
                  (insert "From: " user-full-name " <" next ">\n"))))))))