[mew-int 01931] Re: Multiple POP accounts for single user

[Charles Muller]

Tatsuya Kinoshita wrote:

> cmuller-lst (at jj.em-net.jp) wrote:
> 
> > For example, in the below setup, using the same domain of "jj.em-net.jp" 
> > (an alias for "jj.e-mansion.com"), I would also like to send and receive 
> > for the addresses of
> > 
> >    pop-user acmuller
> >    pop-user cmuller-lst
> >    pop-user h-bud
> 
> > Is there a way that I can do this in a single .emacs file
> 
> Put the following in your ~/.emacs.
> 
> (setq mew-config-alist
>       '(
> 	("bud"
> 	 ("user" . "h-bud")
> 	 ("pop-user" . "h-bud")
> 	 )
> 	("lst"
> 	 ("user" . "cmuller-lst")
> 	 ("pop-user" . "cmuller-lst")
> 	 )
> 	("default"
> 	 ("user" . "acmuller")
> 	 ("pop-user" . "acmuller")
> 	 )
> 	;;
> 	))
> 
> To switch the account to "cmuller-lst", type `C lst RET' in
> Summary or type `C-c C-o lst RET' in Draft.
> 
> For more information, please see the Mew manual, section
> "Changing receiving/sending behavior" (`M-x info RET d m Mew RET
> g config RET').

Thank you so much for providing this. I had tried to find something in
the manual, but did not look in the right place.

Apparently I am still missing something here, because although I added
these lines to my /.emacs, nothing happens when I type `C lst
RET' in summary mode. I tried placing this new "mew-config-alist"
before my previously-existent POP commands; then after, and then
instead of, but it doesn't work in any case. Presently I have:



;; MEW Area

(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)
(setq mew-auto-get nil)
(setq mew-pop-auth 'pass)
(setq mew-name "Charles Muller") ;; (user-full-name)
(setq mew-user "acmuller") ;; (user-login-name)
(setq mew-mail-domain "jj.em-net.jp")
(setq mew-pop-user "acmuller")  ;; (user-login-name)
(setq mew-pop-server "pop.jj.e-mansion.com")    ;; if not localhost
(setq mew-smtp-server "smtp.jj.e-mansion.com")  ;; if not localhost

(setq mew-pop-delete t)

;; Optional setup (Read Mail menu for Emacs 21):
(if (boundp 'read-mail-command)
    (setq read-mail-command 'mew))

;; Optional setup (e.g. C-xm for sending a message):
(autoload 'mew-user-agent-compose "mew" nil t)
(if (boundp 'mail-user-agent)
    (setq mail-user-agent 'mew-user-agent))
(if (fboundp 'define-mail-user-agent)
    (define-mail-user-agent
      'mew-user-agent
      'mew-user-agent-compose
      'mew-draft-send-message
      'mew-draft-kill
      'mew-send-hook))

;; Account options settings

(setq mew-config-alist
      '(
          ("hbud"
             ("name" . "H-Bud")
             ("user" . "h-bud")
             ("pop-user" . "h-bud")
             ("pop-server" . "pop.jj.e-mansion.com")
              )
          ("lst"
          ("name" . "Charles Muller")
          ("user" . "cmuller-lst")
          ("pop-user" . "cmuller-lst")
          ("pop-server" . "pop.jj.e-mansion.com")
          )
         ("gol"
           ("name" . "Charles Muller")
           ("user" . "acmuller")
           ("pop-user" . "acmuller")
           ("pop-server" . "popmail.gol.com")
          ("reply-to" . "acmuller at example.com")
          )
         ("default"
          ("name" . "Charles Muller")
          ("user" . "acmuller")
          ("pop-user" . "acmuller")
          ("pop-server" . "pop.jj.e-mansion.com")
          )
	))

---------------------------

I wonder if any errors are contained here? There are no errors
reported on MEW startup.


Chuck


---------------------------
Charles Muller  

Toyo Gakuen University
Faculty of Humanities  
1660 Hiregasaki, Nagareyama-shi
Chiba 270-0161 JAPAN
Mobile Phone: 090-9310-1787

Web Site: Resources for East Asian Language and Thought
http://www.acmuller.net

<acmuller[at]jj.em-net.jp>