changeset 41516:52c9115c94be

(imap-interactive-login, imap-open, imap-authenticate): Use make-local-variable rather than make-variable-buffer-local.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 25 Nov 2001 22:19:45 +0000
parents 1df0e35d264c
children f0a204c61f81
files lisp/gnus/imap.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/imap.el	Sun Nov 25 22:05:17 2001 +0000
+++ b/lisp/gnus/imap.el	Sun Nov 25 22:19:45 2001 +0000
@@ -719,8 +719,8 @@
 it where sucessful authenticating itself to the server, nil otherwise.
 Returns t if login was successful, nil otherwise."
   (with-current-buffer buffer
-    (make-variable-buffer-local 'imap-username)
-    (make-variable-buffer-local 'imap-password)
+    (make-local-variable 'imap-username)
+    (make-local-variable 'imap-password)
     (let (user passwd ret)
       ;;      (condition-case ()
       (while (or (not user) (not passwd))
@@ -887,7 +887,7 @@
   (with-current-buffer (get-buffer-create buffer)
     (if (imap-opened buffer)
 	(imap-close buffer))
-    (mapcar 'make-variable-buffer-local imap-local-variables)
+    (mapcar 'make-local-variable imap-local-variables)
     (imap-disable-multibyte)
     (buffer-disable-undo)
     (setq imap-server (or server imap-server))
@@ -957,8 +957,8 @@
 	(or (eq imap-state 'auth)
 	    (eq imap-state 'select)
 	    (eq imap-state 'examine))
-      (make-variable-buffer-local 'imap-username)
-      (make-variable-buffer-local 'imap-password)
+      (make-local-variable 'imap-username)
+      (make-local-variable 'imap-password)
       (if user (setq imap-username user))
       (if passwd (setq imap-password passwd))
       (if (funcall (nth 2 (assq imap-auth imap-authenticator-alist)) buffer)