2001-07-18 Per Abrahamsen <abraham@dina.kvl.dk>

	* message.el (message-shorten-references): Change `maxcount' and
	`cut' to obey USEFOR draft 5.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 768e899..7a72088 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-18  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+       * message.el (message-shorten-references): Change `maxcount' and
+       `cut' to obey USEFOR draft 5.
+
 2001-07-12  Colin Walters  <walters@cis.ohio-state.edu>
 
        * gnus-sum.el (gnus-summary-display-arrow): New variable.

diff --git a/lisp/message.el b/lisp/message.el
index b9b39ba..c9c5f73 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3673,12 +3673,12 @@ Headers already prepared in the buffer are not modified."
          (nthcdr (+ (- cut 2) surplus 1) list)))
 
 (defun message-shorten-references (header references)
-  "Trim REFERENCES to be less than 31 Message-ID long, and fold them.
+  "Trim REFERENCES to be 21 Message-ID long or less, and fold them.
 If folding is disallowed, also check that the REFERENCES are less
 than 988 characters long, and if they are not, trim them until they are."
-  (let ((maxcount 31)
+  (let ((maxcount 21)
        (count 0)
-       (cut 6)
+       (cut 2)
        refs)
     (with-temp-buffer
       (insert references)