Re: Gmail

[Hiroshi Fujishima <hiroshi.fujishima@gmail.com>]

Hi,

Terje Rosten <terjeros@phys.ntnu.no> writes:

> If you want to read and send messages for your Gmail account using
> Gnus, here is some help:
>
>  http://web.phys.ntnu.no/~terjeros/gnus-gmail/

Quoted from above page.
| Bugs
| 
| First time pop.el is loaded (during Gnus startup) you are prompted for
| password, after you have given the password Gnus is just hanging. Hit
| `C-g' to continue. Then wait to the Group buffer is ready, then hit
| `g' to load pop.el again, things should now work.

This bug can be evaded by changing mail-source.el referring to
mail-source.el included in T-gnus as follows.

Index: lisp/mail-source.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/mail-source.el,v
retrieving revision 7.10
diff -u -r7.10 mail-source.el
--- lisp/mail-source.el	13 Feb 2005 04:44:41 -0000	7.10
+++ lisp/mail-source.el	29 May 2005 18:43:12 -0000
@@ -346,7 +346,9 @@
        (:program)
        (:function)
        (:password)
-       (:authentication password))
+       (:authentication password)
+       (:connection)
+       (:leave))
       (maildir
        (:path (or (getenv "MAILDIR") "~/Maildir/"))
        (:subdirs ("cur" "new"))
@@ -746,7 +748,12 @@
 		    (pop3-mailhost server)
 		    (pop3-port port)
 		    (pop3-authentication-scheme
-		     (if (eq authentication 'apop) 'apop 'pass)))
+ 		     (if (eq authentication 'apop) 'apop 'pass))
+		    (pop3-connection-type connection)
+		    (pop3-leave-mail-on-server
+		     (or leave
+			 (and (boundp 'pop3-leave-mail-on-server)
+			      (symbol-value 'pop3-leave-mail-on-server)))))
 		(if (or debug-on-quit debug-on-error)
 		    (save-excursion (pop3-movemail mail-source-crash-box))
 		  (condition-case err

-- 
Hiroshi Fujishima