Mercurial > emacs
comparison lisp/mh-e/mh-search.el @ 97411:9873b6187c96
(mh-pick-regexp-builder): Rename variant mu-mh to gnu-mh and be
explicit about GNU mailutils MH in docstrings (with thanks to Darel
Henman) (closes SF #1768928).
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Sun, 10 Aug 2008 23:13:54 +0000 |
| parents | 8b5aa7cf7c71 |
| children | a9dc0e7c3f2b |
comparison
equal
deleted
inserted
replaced
| 97410:429598e08516 | 97411:9873b6187c96 |
|---|---|
| 1272 (let ((result ())) | 1272 (let ((result ())) |
| 1273 (dolist (pattern pattern-list) | 1273 (dolist (pattern pattern-list) |
| 1274 (when (cdr pattern) | 1274 (when (cdr pattern) |
| 1275 (setq result `(,@result "-and" "-lbrace" | 1275 (setq result `(,@result "-and" "-lbrace" |
| 1276 ,@(mh-pick-construct-regexp | 1276 ,@(mh-pick-construct-regexp |
| 1277 (if (and (mh-variant-p 'mu-mh) (car pattern)) | 1277 (if (and (mh-variant-p 'gnu-mh) (car pattern)) |
| 1278 (format "--pattern=%s" (cdr pattern)) | 1278 (format "--pattern=%s" (cdr pattern)) |
| 1279 (cdr pattern)) | 1279 (cdr pattern)) |
| 1280 (if (car pattern) | 1280 (if (car pattern) |
| 1281 (cond | 1281 (cond |
| 1282 ((mh-variant-p 'mu-mh) | 1282 ((mh-variant-p 'gnu-mh) |
| 1283 (format "--component=%s" (car pattern))) | 1283 (format "--component=%s" (car pattern))) |
| 1284 ((member (car pattern) mh-pick-single-dash) | 1284 ((member (car pattern) mh-pick-single-dash) |
| 1285 (format "-%s" (car pattern))) | 1285 (format "-%s" (car pattern))) |
| 1286 (t | 1286 (t |
| 1287 (format "--%s" (car pattern)))) | 1287 (format "--%s" (car pattern)))) |