Fwd: Patch for a bug in imap-open

[Ramkumar R <andyetitmoves@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 1375 bytes --]

Hi!

I had sent a patch to Lars (plz. see details in the conv. below). He
has asked me to send it to this group for its perusal...so here's the
patch...

Ramkumar.

---------- Forwarded message ----------
From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Aug 25, 2005 10:16 PM
Subject: Re: Patch for a bug in imap-open
To: Ramkumar R <andyetitmoves@gmail.com>


Ramkumar R <andyetitmoves@gmail.com> writes:

> I encountered an error when opening my inbox over imap with starttls.
> There is an error thrown up which gets swallowed by a condition-case
> somewhere higher up and I get an error message and a yes-or-no-p
> asking me if I want to continue. Traced the problem to imap-open and I
> have enclosed a patch. I program in lisp, but have no idea about the
> gnus source. So, it is likely that the solution is wrong or hackish.
> Works for me though :)

:-)

The patch looks OK to me, but I'm not all that familiar with the imap
side of things.  Could you send the patch to the ding@gnus.org
mailing list and see whether anybody has any comments?

--
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen


-- 
The day Microsoft makes something that doesn't suck
is probably the day they start making vacuum cleaners.
                                               -Ernst Jan Plugge

[-- Attachment #2: gnus-patch --]
[-- Type: application/octet-stream, Size: 766 bytes --]

Index: lisp/imap.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/imap.el,v
retrieving revision 7.21
diff -r7.21 imap.el
1094,1095c1094,1097
< 		      (kill-buffer buffer)
< 		      (rename-buffer buffer)
---
> 		      (let ((bname (buffer-name buffer)))
> 			(kill-buffer buffer)
> 			(setq buffer (current-buffer))
> 			(rename-buffer bname))
Index: lisp/mail-source.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/mail-source.el,v
retrieving revision 7.11
diff -r7.11 mail-source.el
993c993
<       (if (and (imap-open server port stream authentication buf)
---
>       (if (and (setq buf (imap-open server port stream authentication buf))