[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/pmaildesc.el,v
From: |
Paul Michael Reilly |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/pmaildesc.el,v |
Date: |
Wed, 03 Sep 2008 15:33:39 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Paul Michael Reilly <pmr> 08/09/03 15:33:38
Index: pmaildesc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/pmaildesc.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- pmaildesc.el 2 Sep 2008 11:52:45 -0000 1.5
+++ pmaildesc.el 3 Sep 2008 15:33:38 -0000 1.6
@@ -355,18 +355,18 @@
(nth pmail-desc-date-index (pmail-desc-get-descriptor n))))
(defun pmail-desc-get-previous (n attr-index &optional sense)
- "Return the index for the previous matching descriptor.
+ "Return the message index for the previous matching descriptor.
Starting with descriptor at index N locate the first previous
descriptor such that the attribute ATTR is set. SENSE, if
non-null will reverse the sense of the attribute test."
(let ((index (1- n)) flag result)
(while (and (> index 0) (not result))
- (if (listp (aref pmail-desc-vector index))
- (setq result (pmail-desc-get-match-index attr-index sense index)))
+ (if (listp (aref pmail-desc-vector (1- index)))
+ (setq result (pmail-desc-get-match-index index attr-index sense)))
(setq index (1- index)))
(or result 0)))
-(defun pmail-desc-get-match-index (attr-index sense n)
+(defun pmail-desc-get-match-index (n attr-index sense)
"Return the index N if the associated descriptor has a matching
attribute, nil otherwise. The attribute value must be set if
SENSE is nil, or unset if SENSE is non-nil."
@@ -426,7 +426,7 @@
(vconcat (delq t (append pmail-desc-vector nil))))
result))
-(defun pmail-desc-set-attribute (attr-index state n)
+(defun pmail-desc-set-attribute (n attr-index state)
"Set the attribute denoted by ATTR-INDEX in message N according to STATE.
If STATE is non-nil the attribute will be set to the single character code
associated with ATTR-INDEX in pmail-desc-attr-alist, otherwise the attribute is
- [Emacs-diffs] Changes to emacs/lisp/mail/pmaildesc.el,v, Paul Michael Reilly, 2008/09/01
- [Emacs-diffs] Changes to emacs/lisp/mail/pmaildesc.el,v, Juanma Barranquero, 2008/09/02
- [Emacs-diffs] Changes to emacs/lisp/mail/pmaildesc.el,v,
Paul Michael Reilly <=
- [Emacs-diffs] Changes to emacs/lisp/mail/pmaildesc.el,v, Glenn Morris, 2008/09/05
- [Emacs-diffs] Changes to emacs/lisp/mail/pmaildesc.el,v, Glenn Morris, 2008/09/05