[Emacs-diffs] Changes to emacs/lisp/mail/rmailsum.el

[Romain Francoise]

Index: emacs/lisp/mail/rmailsum.el
diff -c emacs/lisp/mail/rmailsum.el:1.138 emacs/lisp/mail/rmailsum.el:1.139
*** emacs/lisp/mail/rmailsum.el:1.138   Mon Aug 29 14:36:21 2005
--- emacs/lisp/mail/rmailsum.el Sat Sep 24 13:43:58 2005
***************
*** 1346,1358 ****
    (interactive
      (let* ((reversep (>= (prefix-numeric-value current-prefix-arg) 0))
           (prompt
!           (concat (if reversep "Reverse " "") "Rmail search (regexp): "))
           regexp)
!       (if rmail-search-last-regexp
!         (setq prompt (concat prompt
!                              "(default "
!                              rmail-search-last-regexp
!                              ") ")))
        (setq regexp (read-string prompt))
        (cond ((not (equal regexp ""))
             (setq rmail-search-last-regexp regexp))
--- 1346,1359 ----
    (interactive
      (let* ((reversep (>= (prefix-numeric-value current-prefix-arg) 0))
           (prompt
!           (concat (if reversep "Reverse " "") "Rmail search (regexp"))
           regexp)
!       (setq prompt
!           (concat prompt
!                   (if rmail-search-last-regexp
!                       (concat ", default "
!                               rmail-search-last-regexp "): ")
!                     "): ")))
        (setq regexp (read-string prompt))
        (cond ((not (equal regexp ""))
             (setq rmail-search-last-regexp regexp))
***************
*** 1377,1389 ****
    (interactive
      (let* ((reversep (< (prefix-numeric-value current-prefix-arg) 0))
           (prompt
!           (concat (if reversep "Reverse " "") "Rmail search (regexp): "))
           regexp)
!       (if rmail-search-last-regexp
!         (setq prompt (concat prompt
!                              "(default "
!                              rmail-search-last-regexp
!                              ") ")))
        (setq regexp (read-string prompt))
        (cond ((not (equal regexp ""))
             (setq rmail-search-last-regexp regexp))
--- 1378,1391 ----
    (interactive
      (let* ((reversep (< (prefix-numeric-value current-prefix-arg) 0))
           (prompt
!           (concat (if reversep "Reverse " "") "Rmail search (regexp"))
           regexp)
!       (setq prompt
!           (concat prompt
!                   (if rmail-search-last-regexp
!                       (concat ", default "
!                               rmail-search-last-regexp "): ")
!                     "): ")))
        (setq regexp (read-string prompt))
        (cond ((not (equal regexp ""))
             (setq rmail-search-last-regexp regexp))