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

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

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

revision 1.138 by lektu, Mon Aug 29 14:36:21 2005 UTC revision 1.139 by rfrancoise, Sat Sep 24 13:43:58 2005 UTC
# Line 1346  Interactively, empty argument means use Line 1346  Interactively, empty argument means use
1346    (interactive    (interactive
1347      (let* ((reversep (>= (prefix-numeric-value current-prefix-arg) 0))      (let* ((reversep (>= (prefix-numeric-value current-prefix-arg) 0))
1348             (prompt             (prompt
1349              (concat (if reversep "Reverse " "") "Rmail search (regexp): "))              (concat (if reversep "Reverse " "") "Rmail search (regexp"))
1350             regexp)             regexp)
1351        (if rmail-search-last-regexp        (setq prompt
1352            (setq prompt (concat prompt              (concat prompt
1353                                 "(default "                      (if rmail-search-last-regexp
1354                                 rmail-search-last-regexp                          (concat ", default "
1355                                 ") ")))                                  rmail-search-last-regexp "): ")
1356                          "): ")))
1357        (setq regexp (read-string prompt))        (setq regexp (read-string prompt))
1358        (cond ((not (equal regexp ""))        (cond ((not (equal regexp ""))
1359               (setq rmail-search-last-regexp regexp))               (setq rmail-search-last-regexp regexp))
# Line 1377  Interactively, empty argument means use Line 1378  Interactively, empty argument means use
1378    (interactive    (interactive
1379      (let* ((reversep (< (prefix-numeric-value current-prefix-arg) 0))      (let* ((reversep (< (prefix-numeric-value current-prefix-arg) 0))
1380             (prompt             (prompt
1381              (concat (if reversep "Reverse " "") "Rmail search (regexp): "))              (concat (if reversep "Reverse " "") "Rmail search (regexp"))
1382             regexp)             regexp)
1383        (if rmail-search-last-regexp        (setq prompt
1384            (setq prompt (concat prompt              (concat prompt
1385                                 "(default "                      (if rmail-search-last-regexp
1386                                 rmail-search-last-regexp                          (concat ", default "
1387                                 ") ")))                                  rmail-search-last-regexp "): ")
1388                          "): ")))
1389        (setq regexp (read-string prompt))        (setq regexp (read-string prompt))
1390        (cond ((not (equal regexp ""))        (cond ((not (equal regexp ""))
1391               (setq rmail-search-last-regexp regexp))               (setq rmail-search-last-regexp regexp))

Legend:
Removed from v.1.138  
changed lines
  Added in v.1.139

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