[Emacs-diffs] Changes to emacs/lisp/gnus/imap.el

[Juanma Barranquero]

Index: emacs/lisp/gnus/imap.el
diff -c emacs/lisp/gnus/imap.el:1.7 emacs/lisp/gnus/imap.el:1.8
*** emacs/lisp/gnus/imap.el:1.7 Fri Aug 30 07:10:30 2002
--- emacs/lisp/gnus/imap.el     Fri Nov 29 10:57:52 2002
***************
*** 1,5 ****
  ;;; imap.el --- imap library
! ;; Copyright (C) 1998, 1999, 2000
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Simon Josefsson <address@hidden>
--- 1,5 ----
  ;;; imap.el --- imap library
! ;; Copyright (C) 1998, 1999, 2000, 2002
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Simon Josefsson <address@hidden>
***************
*** 716,722 ****
  (defun imap-interactive-login (buffer loginfunc)
    "Login to server in BUFFER.
  LOGINFUNC is passed a username and a password, it should return t if
! it where sucessful authenticating itself to the server, nil otherwise.
  Returns t if login was successful, nil otherwise."
    (with-current-buffer buffer
      (make-local-variable 'imap-username)
--- 716,722 ----
  (defun imap-interactive-login (buffer loginfunc)
    "Login to server in BUFFER.
  LOGINFUNC is passed a username and a password, it should return t if
! it where successful authenticating itself to the server, nil otherwise.
  Returns t if login was successful, nil otherwise."
    (with-current-buffer buffer
      (make-local-variable 'imap-username)
***************
*** 809,815 ****
    t)
  
  (defun imap-anonymous-auth (buffer)
!   (message "imap: Loging in anonymously...")
    (with-current-buffer buffer
      (imap-ok-p (imap-send-command-wait
                (concat "LOGIN anonymous \"" (concat (user-login-name) "@"
--- 809,815 ----
    t)
  
  (defun imap-anonymous-auth (buffer)
!   (message "imap: Logging in anonymously...")
    (with-current-buffer buffer
      (imap-ok-p (imap-send-command-wait
                (concat "LOGIN anonymous \"" (concat (user-login-name) "@"
***************
*** 882,888 ****
  available authenticators.  If nil, it choices the best stream the
  server is capable of.
  BUFFER can be a buffer or a name of a buffer, which is created if
! necessery.  If nil, the buffer name is generated."
    (setq buffer (or buffer (format " *imap* %s:%d" server (or port 0))))
    (with-current-buffer (get-buffer-create buffer)
      (if (imap-opened buffer)
--- 882,888 ----
  available authenticators.  If nil, it choices the best stream the
  server is capable of.
  BUFFER can be a buffer or a name of a buffer, which is created if
! necessary.  If nil, the buffer name is generated."
    (setq buffer (or buffer (format " *imap* %s:%d" server (or port 0))))
    (with-current-buffer (get-buffer-create buffer)
      (if (imap-opened buffer)