diff options
| author | Richard M. Stallman | 1994-05-06 23:59:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-05-06 23:59:28 +0000 |
| commit | 954121657160eceda61a8d52285ad594977c305e (patch) | |
| tree | a7859bb032aecb66d772f90eed54b297c8ca6a2c | |
| parent | a0263371c863b851a686a4cd2f54e98b70b7f0ba (diff) | |
| download | emacs-954121657160eceda61a8d52285ad594977c305e.tar.gz emacs-954121657160eceda61a8d52285ad594977c305e.zip | |
(rmail-make-basic-summary-line): Show 14 chars before @ and 11 after.
| -rw-r--r-- | lisp/mail/rmailsum.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 3ea44ef0289..34ee023c9c7 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el | |||
| @@ -334,10 +334,10 @@ nil for FUNCTION means all messages." | |||
| 334 | (if (or (not mch) (<= len 25)) | 334 | (if (or (not mch) (<= len 25)) |
| 335 | (substring from (max 0 (- len 25))) | 335 | (substring from (max 0 (- len 25))) |
| 336 | (substring from | 336 | (substring from |
| 337 | (setq lo (cond ((< (- mch 9) 0) 0) | 337 | (setq lo (cond ((< (- mch 14) 0) 0) |
| 338 | ((< len (+ mch 16)) | 338 | ((< len (+ mch 11)) |
| 339 | (- len 25)) | 339 | (- len 25)) |
| 340 | (t (- mch 9)))) | 340 | (t (- mch 14)))) |
| 341 | (min len (+ lo 25)))))))) | 341 | (min len (+ lo 25)))))))) |
| 342 | " #" | 342 | " #" |
| 343 | (if (re-search-forward "^Subject:" nil t) | 343 | (if (re-search-forward "^Subject:" nil t) |