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)) |
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)) |