/[emacs]/emacs/lisp/mail/rmail.el
ViewVC logotype

Diff of /emacs/lisp/mail/rmail.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.414 by lektu, Mon Aug 29 14:38:57 2005 UTC revision 1.415 by rfrancoise, Sat Sep 24 13:43:59 2005 UTC
# Line 3038  Interactively, empty argument means use Line 3038  Interactively, empty argument means use
3038    (interactive    (interactive
3039      (let* ((reversep (< (prefix-numeric-value current-prefix-arg) 0))      (let* ((reversep (< (prefix-numeric-value current-prefix-arg) 0))
3040             (prompt             (prompt
3041              (concat (if reversep "Reverse " "") "Rmail search (regexp): "))              (concat (if reversep "Reverse " "") "Rmail search (regexp"))
3042             regexp)             regexp)
3043        (if rmail-search-last-regexp        (setq prompt
3044            (setq prompt (concat prompt              (concat prompt
3045                                 "(default "                      (if rmail-search-last-regexp
3046                                 rmail-search-last-regexp                          (concat ", default "
3047                                 ") ")))                                  rmail-search-last-regexp "): ")
3048                          "): ")))
3049        (setq regexp (read-string prompt))        (setq regexp (read-string prompt))
3050        (cond ((not (equal regexp ""))        (cond ((not (equal regexp ""))
3051               (setq rmail-search-last-regexp regexp))               (setq rmail-search-last-regexp regexp))
# Line 3109  Interactively, empty argument means use Line 3110  Interactively, empty argument means use
3110    (interactive    (interactive
3111      (let* ((reversep (>= (prefix-numeric-value current-prefix-arg) 0))      (let* ((reversep (>= (prefix-numeric-value current-prefix-arg) 0))
3112             (prompt             (prompt
3113              (concat (if reversep "Reverse " "") "Rmail search (regexp): "))              (concat (if reversep "Reverse " "") "Rmail search (regexp"))
3114             regexp)             regexp)
3115        (if rmail-search-last-regexp        (setq prompt
3116            (setq prompt (concat prompt              (concat prompt
3117                                 "(default "                      (if rmail-search-last-regexp
3118                                 rmail-search-last-regexp                          (concat ", default "
3119                                 ") ")))                                  rmail-search-last-regexp "): ")
3120                          "): ")))
3121        (setq regexp (read-string prompt))        (setq regexp (read-string prompt))
3122        (cond ((not (equal regexp ""))        (cond ((not (equal regexp ""))
3123               (setq rmail-search-last-regexp regexp))               (setq rmail-search-last-regexp regexp))

Legend:
Removed from v.1.414  
changed lines
  Added in v.1.415

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26