[gnus git] branch master updated: n0-13-39-gd969dc4

       via  d969dc430078bc1e8036032cd38e2fe2084f1f03 (commit)
      from  66772678b44e84b0f293b159875266ee1b964325 (commit)


- Log -----------------------------------------------------------------
commit d969dc430078bc1e8036032cd38e2fe2084f1f03
Author: Ted Zlatanov <[email protected]>
Date:   Thu Feb 24 15:51:10 2011 -0600

    Fix help mode excursion.
    
    * auth-source.el (auth-source-netrc-create): Fix help mode excursion.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d1dae6c..cd3ec76 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -9,7 +9,8 @@
 	prompts for user, host, port, and password (the default generic prompt
 	remains ugly).
 	(auth-source-never-save): Add customizable option to never save info.
-	(auth-source-netrc-create): Use it and improve save prompts.
+	(auth-source-netrc-create): Use it and improve save prompts.  Fix help
+	mode excursion.
 
 2011-02-24  Katsumi Yamaoka  <[email protected]>
 
diff --git a/lisp/auth-source.el b/lisp/auth-source.el
index 233b028..d1e258c 100644
--- a/lisp/auth-source.el
+++ b/lisp/auth-source.el
@@ -1091,15 +1091,16 @@ See `auth-source-search' for details on SPEC."
           (setq k (read-char))
           (case k
             (?y (setq done t))
-            (?? (with-output-to-temp-buffer bufname
+            (?? (save-excursion
+                  (with-output-to-temp-buffer bufname
                   (princ
                    (concat "(y)es, save\n"
                            "(n)o but use the info\n"
                            "(N)o and don't ask to save again\n"
-                           "(e)dit the line."))
-                  (set-buffer bufname)
-                  (help-mode)
-                  (help-print-return-message)))
+                             "(e)dit the line\n"
+                             "(?) for help as you can see.\n"))
+                  (set-buffer standard-output)
+                  (help-mode))))
             (?n (setq add ""
                       done t))
             (?N (setq add ""

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog      |    3 ++-
 lisp/auth-source.el |   21 +++++++++++----------
 2 files changed, 13 insertions(+), 11 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project