Integrating Gnus into Emacs

Integrating Gnus into Emacs

[Ralph Schleicher]

My girl friend started reading and writing mail using Emacs a few weeks
ago.  Since she is a real Computer/Unix/Emacs novice, I had to replace
the standard Emacs mail commands with Gnus equivalents.  I ended up with
the following code in her personal Emacs initialization file:

;;; Replace the standard mail commands with Gnus equivalents.

(defun gnus-mail ()
  "Start composing a mail."
  (interactive)
  (unless (get-buffer "*Group*")
    (save-window-excursion (gnus)))
  (gnus-group-mail))

(define-key ctl-x-map "m" 'gnus-mail)
(define-key-after menu-bar-tools-menu [rmail]
  '("Read Mail" . gnus) 'gnus)
(define-key-after menu-bar-tools-menu [compose-mail]
  '("Send Mail" . gnus-mail) 'rmail))

Maybe this code is useful for the FAQ.

-- 
Ralph

Re: Integrating Gnus into Emacs

[Kai Grossjohann]

>>>>> Ralph Schleicher <rs@purple.UL.BaWue.DE> writes:

  > ;;; Replace the standard mail commands with Gnus equivalents.

You might also want to have a look at the variable mail-user-agent.
You could try to set this variable to message-user-agent instead of
your code -- does that make sense?

kai
-- 
A black hole has no hair.  (John Wheeler)

Re: Integrating Gnus into Emacs

[Christophe Broult]

Kai Grossjohann <grossjohann@charly.cs.uni-dortmund.de> writes:

> >>>>> Ralph Schleicher <rs@purple.UL.BaWue.DE> writes:
> 
>   > ;;; Replace the standard mail commands with Gnus equivalents.
> 
> You might also want to have a look at the variable mail-user-agent.
> You could try to set this variable to message-user-agent instead of
> your code -- does that make sense?

Yes it does but setting message-user-agent doesn't change the behavior
of the "Tools/Read mail" menu item to call gnus. I believe that should
be the case if we want to get something consistent ie not reading mail
with RMAIL and sending mail with GNUS when mail-user-agent is set to
message-user-agent. So I consider the following lines as useful:

> > (define-key-after menu-bar-tools-menu [rmail]
> >   '("Read Mail" . gnus) 'gnus)


Chris

> 
> kai
> -- 
> A black hole has no hair.  (John Wheeler)
> 
> 

-- 
// Christophe Broult            mailto:christophe.broult@info.unicaen.fr   
// GREYC            http://www.info.unicaen.fr/greyc/BienvenueGREYC.html
// Voice: 02 31 56 59 43                             Fax: 02 31 56 58 14