# HG changeset patch
# User Henrik Enberg <henrik.enberg@telia.com>
# Date 1137962388 0
# Node ID 8ca01eaf0be85f37ecd2aefb74b572e1adcd10f0
# Parent  51d730aebd40d2fa9b084eaa72a5f5a3d6138e0c
(rmail-desc-default-attrs): New const.
(rmail-desc-get-default-attrs): Deleted.

diff -r 51d730aebd40 -r 8ca01eaf0be8 lisp/mail/rmaildesc.el
--- a/lisp/mail/rmaildesc.el	Sun Jan 22 20:38:55 2006 +0000
+++ b/lisp/mail/rmaildesc.el	Sun Jan 22 20:39:48 2006 +0000
@@ -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 @@
 
 ;;;; 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 @@
    (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 @@
 	  (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 @@
 	  (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 @@
   (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 @@
     (and (>= curpos beg) (< curpos end))))
 
 (provide 'rmaildesc)
+
+;;; rmaildesc.el ends here