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

[Romain Francoise]

Index: emacs/lisp/gnus/gnus-util.el
diff -c emacs/lisp/gnus/gnus-util.el:1.34 emacs/lisp/gnus/gnus-util.el:1.35
*** emacs/lisp/gnus/gnus-util.el:1.34   Mon Sep  5 23:58:07 2005
--- emacs/lisp/gnus/gnus-util.el        Sat Sep 24 13:46:19 2005
***************
*** 335,342 ****
  (defun gnus-completing-read-with-default (default prompt &rest args)
    ;; Like `completing-read', except that DEFAULT is the default argument.
    (let* ((prompt (if default
!                    (concat prompt " (default " default ") ")
!                  (concat prompt " ")))
         (answer (apply 'completing-read prompt args)))
      (if (or (null answer) (zerop (length answer)))
        default
--- 335,342 ----
  (defun gnus-completing-read-with-default (default prompt &rest args)
    ;; Like `completing-read', except that DEFAULT is the default argument.
    (let* ((prompt (if default
!                    (concat prompt " (default " default "): ")
!                  (concat prompt ": ")))
         (answer (apply 'completing-read prompt args)))
      (if (or (null answer) (zerop (length answer)))
        default