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