Re: multiple pop-boxes in emacs

["Ehud Karni" <ehud@unix.mvs.co.il>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On Mon, 16 Feb 2004 13:30:52 +0000 (GMT), Daan Hoogland <emacs@onecht.net> wrote:
>
> I currently using mew. I want to open several mailboxes through
> pop3/pop3s or imap/imaps. I don't seem to be able to do this with
> mew. Can anybody tell me if this is at all possible with a emacs mail
> reader?

I use rmail and have defined a command that adds the mail from a pop
account into the rmail buffer.

(defun rmail-get-new-mail-from-pop (pop-host pop-user pop-pass)
  "Get mail from pop server into current rmail file
Accepts 3 parameters (strings):
    POP-HOST - host name of pop server
    POP-USER - login name of mail user
    POP-PASS - password of mail account"
  (interactive "sPOP host name: \nsUser name: \nsMail password: ")
       (let ((sv-host (getenv "MAILHOST"))
             (sv-p-inbox rmail-primary-inbox-list)
             (sv-pass rmail-pop-password)
             (rmail-pop-password-required (not (null pop-pass)))
            )
           (setq rmail-primary-inbox-list (list (concat "po:" pop-user)))
           (rmail-set-pop-password pop-pass)
           (setenv "MAILHOST" pop-host)            ;; pop host name
           (rmail)                                 ;; get mail from pop (rmail)
           (setq rmail-primary-inbox-list sv-p-inbox)
           (setq rmail-pop-password sv-pass)
           (setenv "MAILHOST" sv-host)))           ;; restore host name


I also defined a command for each of my pop mailbox like this:

(defun read-pop-acct-1  () "pop mail from account 1"
  (interactive)
       (require 'rmail)
       (rmail-get-new-mail-from-pop
           "pop.host.url" "acct" "passwd"))

Ehud.


- --
 Ehud Karni           Tel: +972-3-7966-561  /"\
 Mivtach - Simon      Fax: +972-3-7966-667  \ /  ASCII Ribbon Campaign
 Insurance agencies   (USA) voice mail and   X   Against   HTML   Mail
 http://www.mvs.co.il  FAX:  1-815-5509341  / \
 GnuPG: 98EA398D <http://www.keyserver.net/>    Better Safe Than Sorry
-----BEGIN PGP SIGNATURE-----
Comment: use http://www.keyserver.net/ to get my key (and others)

iD8DBQFAMNEvLFvTvpjqOY0RAj43AJ47t4WhS9NozAud7J1dSPQ/g6r0aACfZRdk
xbZeFiQPdZ1qQaoOD7/4134=
=Lofa
-----END PGP SIGNATURE-----