[Emacs-diffs] /srv/bzr/emacs/trunk r105859: Merge changes made in Gnus trunk.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 105859
author: Gnus developers <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Tue 2011-09-20 22:14:36 +0000
message:
  Merge changes made in Gnus trunk.
  
  message.el (message-indent-citation): Fix empty line removal at the end of 
the citation.
  auth-source.el (auth-source-netrc-create): Use default value for password if 
specified. Evaluate default.
   (auth-source-plstore-create): Ditto.
   (auth-source-plstore-create, auth-source-netrc-create): Fix default value 
evaluation.
   (auth-source-netrc-create): Typo fix.
   (auth-source-plstore-create): Ditto.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/auth-source.el
  lisp/gnus/message.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-09-20 14:08:04 +0000
+++ b/lisp/gnus/ChangeLog       2011-09-20 22:14:36 +0000
@@ -1,5 +1,18 @@
+2011-09-20  Łukasz Stelmach  <address@hidden>  (tiny change)
+
+       * message.el (message-indent-citation): Fix empty line removal at the
+       end of the citation.
+
 2011-09-20  Julien Danjou  <address@hidden>
 
+       * auth-source.el (auth-source-netrc-create): Use default value for
+       password if specified. Evaluate default.
+       (auth-source-plstore-create): Ditto.
+       (auth-source-plstore-create, auth-source-netrc-create): Fix default
+       value evaluation.
+       (auth-source-netrc-create): Typo fix.
+       (auth-source-plstore-create): Ditto.
+
        * auth-source.el (auth-source-format-cache-entry): New function.
 
 2011-09-20  Katsumi Yamaoka  <address@hidden>

=== modified file 'lisp/gnus/auth-source.el'
--- a/lisp/gnus/auth-source.el  2011-09-20 14:08:04 +0000
+++ b/lisp/gnus/auth-source.el  2011-09-20 22:14:36 +0000
@@ -1225,49 +1225,46 @@
                         (?p ,(aget printable-defaults 'port))))))
 
         ;; Store the data, prompting for the password if needed.
-        (setq data
-              (cond
-               ((and (null data) (eq r 'secret))
-                ;; Special case prompt for passwords.
-                ;; TODO: make the default (setq 
auth-source-netrc-use-gpg-tokens `((,(if (boundp 
'epa-file-auto-mode-alist-entry) (car (symbol-value 
'epa-file-auto-mode-alist-entry)) "\\.gpg\\'") nil) (t gpg)))
-                ;; TODO: or maybe leave as (setq 
auth-source-netrc-use-gpg-tokens 'never)
-                (let* ((ep (format "Use GPG password tokens in %s?" file))
-                       (gpg-encrypt
-                        (cond
-                         ((eq auth-source-netrc-use-gpg-tokens 'never)
-                          'never)
-                         ((listp auth-source-netrc-use-gpg-tokens)
-                          (let ((check (copy-sequence
-                                        auth-source-netrc-use-gpg-tokens))
-                                item ret)
-                            (while check
-                              (setq item (pop check))
-                              (when (or (eq (car item) t)
-                                        (string-match (car item) file))
-                                (setq ret (cdr item))
-                                (setq check nil)))))
-                         (t 'never)))
-                       (plain (read-passwd prompt)))
-                  ;; ask if we don't know what to do (in which case
-                  ;; auth-source-netrc-use-gpg-tokens must be a list)
-                  (unless gpg-encrypt
-                    (setq gpg-encrypt (if (y-or-n-p ep) 'gpg 'never))
-                    ;; TODO: save the defcustom now? or ask?
-                    (setq auth-source-netrc-use-gpg-tokens
-                          (cons `(,file ,gpg-encrypt)
-                                auth-source-netrc-use-gpg-tokens)))
-                  (if (eq gpg-encrypt 'gpg)
-                      (auth-source-epa-make-gpg-token plain file)
-                    plain)))
-               ((null data)
-                (when default
-                  (setq prompt
-                        (if (string-match ": *\\'" prompt)
-                            (concat (substring prompt 0 (match-beginning 0))
-                                    " (default " default "): ")
-                          (concat prompt "(default " default ") "))))
-                (read-string prompt nil nil default))
-               (t (or data default))))
+        (setq data (or data
+                       (if (eq r 'secret)
+                           ;; Special case prompt for passwords.
+                           ;; TODO: make the default (setq 
auth-source-netrc-use-gpg-tokens `((,(if (boundp 
'epa-file-auto-mode-alist-entry) (car (symbol-value 
'epa-file-auto-mode-alist-entry)) "\\.gpg\\'") nil) (t gpg)))
+                           ;; TODO: or maybe leave as (setq 
auth-source-netrc-use-gpg-tokens 'never)
+                           (let* ((ep (format "Use GPG password tokens in %s?" 
file))
+                                  (gpg-encrypt
+                                   (cond
+                                    ((eq auth-source-netrc-use-gpg-tokens 
'never)
+                                     'never)
+                                    ((listp auth-source-netrc-use-gpg-tokens)
+                                     (let ((check (copy-sequence
+                                                   
auth-source-netrc-use-gpg-tokens))
+                                           item ret)
+                                       (while check
+                                         (setq item (pop check))
+                                         (when (or (eq (car item) t)
+                                                   (string-match (car item) 
file))
+                                           (setq ret (cdr item))
+                                           (setq check nil)))))
+                                    (t 'never)))
+                                  (plain (or (eval default) (read-passwd 
prompt))))
+                             ;; ask if we don't know what to do (in which case
+                             ;; auth-source-netrc-use-gpg-tokens must be a 
list)
+                             (unless gpg-encrypt
+                               (setq gpg-encrypt (if (y-or-n-p ep) 'gpg 
'never))
+                               ;; TODO: save the defcustom now? or ask?
+                               (setq auth-source-netrc-use-gpg-tokens
+                                     (cons `(,file ,gpg-encrypt)
+                                           auth-source-netrc-use-gpg-tokens)))
+                             (if (eq gpg-encrypt 'gpg)
+                                 (auth-source-epa-make-gpg-token plain file)
+                               plain))
+                         (if (stringp default)
+                             (read-string (if (string-match ": *\\'" prompt)
+                                              (concat (substring prompt 0 
(match-beginning 0))
+                                                      " (default " default "): 
")
+                                            (concat prompt "(default " default 
") "))
+                                          nil nil default)
+                           (eval default)))))
 
         (when data
           (setq artificial (plist-put artificial
@@ -1671,20 +1668,16 @@
                         (?p ,(aget printable-defaults 'port))))))
 
         ;; Store the data, prompting for the password if needed.
-        (setq data
-              (cond
-               ((and (null data) (eq r 'secret))
-                ;; Special case prompt for passwords.
-                (read-passwd prompt))
-               ((null data)
-                (when default
-                  (setq prompt
-                        (if (string-match ": *\\'" prompt)
-                            (concat (substring prompt 0 (match-beginning 0))
-                                    " (default " default "): ")
-                          (concat prompt "(default " default ") "))))
-                (read-string prompt nil nil default))
-               (t (or data default))))
+        (setq data (or data
+                       (if (eq r 'secret)
+                           (or (eval default) (read-passwd prompt))
+                         (if (stringp default)
+                             (read-string (if (string-match ": *\\'" prompt)
+                                              (concat (substring prompt 0 
(match-beginning 0))
+                                                      " (default " default "): 
")
+                                            (concat prompt "(default " default 
") "))
+                                          nil nil default)
+                           (eval default)))))
 
         (when data
           (if (member r base-secret)

=== modified file 'lisp/gnus/message.el'
--- a/lisp/gnus/message.el      2011-09-15 01:08:08 +0000
+++ b/lisp/gnus/message.el      2011-09-20 22:14:36 +0000
@@ -3679,10 +3679,9 @@
       (message-delete-line))
     ;; Delete blank lines at the end of the buffer.
     (goto-char (point-max))
-    (unless (eolp)
-      (insert "\n"))
-    (while (and (zerop (forward-line -1))
-               (looking-at "$"))
+    (beginning-of-line)
+    (while (and (looking-at "$")
+               (zerop (forward-line -1)))
       (message-delete-line)))
   ;; Do the indentation.
   (if (null message-yank-prefix)