# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 768268768 0
# Node ID 5e3d372d60163aa2f2189faef5704e1447a376a2
# Parent  969e565dfffff4ec9722b04eb264c5979ec6c9c2
(rmail-make-basic-summary-line): Show 14 chars before @ and 11 after.

diff -r 969e565dffff -r 5e3d372d6016 lisp/mail/rmailsum.el
--- a/lisp/mail/rmailsum.el	Fri May 06 21:22:39 1994 +0000
+++ b/lisp/mail/rmailsum.el	Fri May 06 23:59:28 1994 +0000
@@ -334,10 +334,10 @@
 			(if (or (not mch) (<= len 25))
 			    (substring from (max 0 (- len 25)))
 			  (substring from
-				     (setq lo (cond ((< (- mch 9) 0) 0)
-						    ((< len (+ mch 16))
+				     (setq lo (cond ((< (- mch 14) 0) 0)
+						    ((< len (+ mch 11))
 						     (- len 25))
-						    (t (- mch 9))))
+						    (t (- mch 14))))
 				     (min len (+ lo 25))))))))
 	  "  #"
 	  (if (re-search-forward "^Subject:" nil t)