Mercurial > emacs

changeset 88279:8ca01eaf0be8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-desc-default-attrs): New const. (rmail-desc-get-default-attrs): Deleted.
author Henrik Enberg <henrik.enberg@telia.com>
date Sun, 22 Jan 2006 20:39:48 +0000
parents 51d730aebd40
children 1549b185d6c6
files lisp/mail/rmaildesc.el
diffstat 1 files changed, 9 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- 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