* imap.el (imap-anonymous-auth): Fix typo.

	From: Steinar Bang <sb@dod.no>

	* gnus-cache.el (gnus-cache-braid-nov): Use set-buffer instead of
	save-excursion.
	(gnus-cache-braid-heads): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aa92448..66cf9ab 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,11 @@
 2002-02-03  ShengHuo ZHU  <zsh@cs.rochester.edu>
+       
+       * imap.el (imap-anonymous-auth): Fix typo. 
+       From: Steinar Bang <sb@dod.no>
+
+       * gnus-cache.el (gnus-cache-braid-nov): Use set-buffer instead of
+       save-excursion.
+       (gnus-cache-braid-heads): Ditto.
 
        * gnus-agent.el (gnus-agent-copy-nov-line): Move to the correct
        line, because there are extra articles in the overview buffer.

diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el
index b2a6823..f93d6be 100644 (file)
--- a/lisp/gnus-cache.el
+++ b/lisp/gnus-cache.el
@@ -515,13 +515,13 @@ Returns the list of articles removed."
                  (< (read (current-buffer)) (car cached)))
        (forward-line 1))
       (beginning-of-line)
-      (save-excursion
-       (set-buffer cache-buf)
-       (if (search-forward (concat "\n" (int-to-string (car cached)) "\t")
-                           nil t)
-           (setq beg (progn (beginning-of-line) (point))
-                 end (progn (end-of-line) (point)))
-         (setq beg nil)))
+      (set-buffer cache-buf)
+      (if (search-forward (concat "\n" (int-to-string (car cached)) "\t")
+                         nil t)
+         (setq beg (progn (beginning-of-line) (point))
+               end (progn (end-of-line) (point)))
+       (setq beg nil))
+      (set-buffer nntp-server-buffer)
       (when beg
        (insert-buffer-substring cache-buf beg end)
        (insert "\n"))
@@ -543,20 +543,20 @@ Returns the list of articles removed."
                     (car cached)))
        (search-forward "\n.\n" nil 'move))
       (beginning-of-line)
-      (save-excursion
-       (set-buffer cache-buf)
-       (erase-buffer)
-       (let ((coding-system-for-read
-              gnus-cache-coding-system))
-         (insert-file-contents (gnus-cache-file-name group (car cached))))
-       (goto-char (point-min))
-       (insert "220 ")
-       (princ (car cached) (current-buffer))
-       (insert " Article retrieved.\n")
-       (search-forward "\n\n" nil 'move)
-       (delete-region (point) (point-max))
-       (forward-char -1)
-       (insert "."))
+      (set-buffer cache-buf)
+      (erase-buffer)
+      (let ((coding-system-for-read
+            gnus-cache-coding-system))
+       (insert-file-contents (gnus-cache-file-name group (car cached))))
+      (goto-char (point-min))
+      (insert "220 ")
+      (princ (car cached) (current-buffer))
+      (insert " Article retrieved.\n")
+      (search-forward "\n\n" nil 'move)
+      (delete-region (point) (point-max))
+      (forward-char -1)
+      (insert ".")
+      (set-buffer nntp-server-buffer)
       (insert-buffer-substring cache-buf)
       (setq cached (cdr cached)))
     (kill-buffer cache-buf)))

diff --git a/lisp/imap.el b/lisp/imap.el
index 63b7b93..48106fd 100644 (file)
--- a/lisp/imap.el
+++ b/lisp/imap.el
@@ -852,7 +852,7 @@ Returns t if login was successful, nil otherwise."
   t)
 
 (defun imap-anonymous-auth (buffer)
-  (message "imap: Loging in anonymously...")
+  (message "imap: Logging in anonymously...")
   (with-current-buffer buffer
     (imap-ok-p (imap-send-command-wait
                (concat "LOGIN anonymous \"" (concat (user-login-name) "@"