(rmail-desc-default-attrs): New const.

(rmail-desc-get-default-attrs): Deleted.

diff --git a/lisp/mail/rmaildesc.el b/lisp/mail/rmaildesc.el
index 2fb4329205dd381db56bff3b4eb3dffe9d48113d..7d2e1ba4efd0e8b9b93f3cb852966dc9073817bd 100644 (file)
--- a/lisp/mail/rmaildesc.el
+++ b/lisp/mail/rmaildesc.el
@@ -24,7 +24,7 @@
 
 ;;; Commentary:
 
-;;; This package provides low level functions for tracking messages in Rmail.  
+;;; This package provides low level functions for tracking messages in Rmail.
 
 ;;; Code:
 
@@ -77,6 +77,9 @@ where
 
 ;;;; Constants supporting message vector processing.
 
+(defconst rmail-desc-default-attrs "------U"
+  "The default attributes for a new message.")
+
 ;;; Message component indexes.
 
 (defconst rmail-desc-beg-index 0
@@ -179,7 +182,7 @@ N is 1 based, i.e. the first message number is 1."
    (nth rmail-desc-beg-index (rmail-desc-get-descriptor n))))
 
 (defun rmail-desc-get-end (n)
-  "Return the position of the end of message N." 
+  "Return the position of the end of message N."
   (if (= n (length rmail-desc-vector))
       (save-restriction
        (widen)
@@ -207,7 +210,7 @@ The current buffer must be narrowed to message N.  Both
          (rmail-header-add-header rmail-header-keyword-header
                                   (mapconcat 'identity keywords ","))
          (rmail-header-toggle-visibility display-state))))))
-        
+
 (defun rmail-desc-remove-keyword (keyword n)
   "Remove KEYWORD from the list of keywords for message N.
 The current buffer must be narrowed to message N.  Both
@@ -224,7 +227,7 @@ The current buffer must be narrowed to message N.  Both
          (rmail-header-add-header rmail-header-keyword-header
                                   (mapconcat 'identity keywords ","))
          (rmail-header-toggle-visibility display-state))))))
-        
+
 (defun rmail-desc-attr-p (attr-index n)
   "Return the state of the the attribute denoted by ATTR-INDEX in
   message N."
@@ -305,10 +308,6 @@ If the attribute is not set, return nil."
   (nth rmail-desc-date-day-of-week-index
        (nth rmail-desc-date-index (rmail-desc-get-descriptor n))))
 
-(defun rmail-desc-get-default-attrs ()
-  "Return the default attributes for a new message."
-  (format "%s" "------U"))
-
 (defun rmail-desc-get-header-display-state (n)
   "Return t if ignorable headers are being displayed, nil otherwise."
   (null (overlays-at (rmail-desc-get-start n))))
@@ -424,3 +423,5 @@ set to the hyphen character (-)."
     (and (>= curpos beg) (< curpos end))))
 
 (provide 'rmaildesc)
+
+;;; rmaildesc.el ends here