;;; mh-seq.el --- MH-E sequences support
-;; Copyright (C) 1993, 1995, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
-;; 2008 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1995, 2001-2011 Free Software Foundation, Inc.
;; Author: Bill Wohler <wohler@newt.com>
;; Maintainer: Bill Wohler <wohler@newt.com>
(seq-list mh-seq-list)
(max-len 0))
(with-output-to-temp-buffer temp-buffer
- (save-excursion
- (set-buffer temp-buffer)
+ (with-current-buffer temp-buffer
(erase-buffer)
(message "Listing sequences ...")
(insert "Sequences in folder " folder ":\n")
" "))))
;; Shush compiler.
-(defvar tool-bar-mode) ; XEmacs
+(mh-do-in-xemacs
+ (defvar tool-bar-mode))
(defvar tool-bar-map)
;;;###mh-autoload
"-norecurse" folder "-sequence" (symbol-name mh-unseen-seq))
(goto-char (point-min))
(multiple-value-bind (folder unseen total)
- (mh-parse-flist-output-line
- (buffer-substring (point) (mh-line-end-position)))
- (values total unseen folder))))
+ (values-list
+ (mh-parse-flist-output-line
+ (buffer-substring (point) (mh-line-end-position))))
+ (list total unseen folder))))
(defun mh-folder-size-folder (folder)
"Find size of FOLDER using \"folder\"."
"-norecurse" folder)
(goto-char (point-min))
(if (re-search-forward " has \\([0-9]+\\) " nil t)
- (values (string-to-number (match-string 1)) u folder)
- (values 0 u folder)))))
+ (list (string-to-number (match-string 1)) u folder)
+ (list 0 u folder)))))
;;;###mh-autoload
(defun mh-parse-flist-output-line (line &optional current-folder)
(when (and (equal (aref folder (1- (length folder))) ?+)
(equal current-folder folder))
(setq folder (substring folder 0 (1- (length folder)))))
- (values (format "+%s" folder) unseen total)))))))
+ (list (format "+%s" folder) unseen total)))))))
;;;###mh-autoload
(defun mh-read-folder-sequences (folder save-refiles)
"Return a list of message numbers from point to the end of the line.
Expands ranges into set of individual numbers."
(let ((msgs ())
- (end-of-line (save-excursion (end-of-line) (point)))
+ (end-of-line (point-at-eol))
num)
(while (re-search-forward "[0-9]+" end-of-line t)
(setq num (string-to-number (buffer-substring (match-beginning 0)
;; sentence-end-double-space: nil
;; End:
-;; arch-tag: 8e952711-01a2-485b-bf21-c9e3ad4de942
;;; mh-seq.el ends here