Lines Matching defs:folder
95 (folders-changed (list mh-current-folder))
125 (folders-changed (list mh-current-folder)))
142 "List all sequences in folder.
146 (let ((folder mh-current-folder)
155 (insert "Sequences in folder " folder ":\n")
192 (let* ((dest-folder (loop for seq in mh-refile-list
195 (deleted-flag (unless dest-folder (member message mh-delete-list))))
198 (cond (dest-folder (format " (to be refiled to %s)" dest-folder))
220 (with-mh-folder-updating (t)
229 mh-folder-view-stack)
236 (mh-make-folder-mode-line)
240 mh-folder-seq-tool-bar-map)
268 "Add RANGE to SEQUENCE\\<mh-folder-mode-map>.
282 (folders (list mh-current-folder))
339 (when mh-folder-view-stack
356 (while (cdr mh-folder-view-stack)
357 (setq mh-folder-view-stack (cdr mh-folder-view-stack))))
359 (with-mh-folder-updating (t)
361 (insert (pop mh-folder-view-stack))
364 (mh-make-folder-mode-line))
371 (when (and (null mh-folder-view-stack) (boundp 'tool-bar-mode) tool-bar-mode)
372 (set (make-local-variable 'tool-bar-map) mh-folder-tool-bar-map)
420 (mh-folder-name-p name)))
459 (not (mh-folder-name-p seq)))
461 (mh-exec-cmd-error nil "mark" mh-current-folder "-add" "-zero"
469 (apply #'mh-exec-cmd "mark" mh-current-folder "-delete"
481 folder buffer are not updated."
501 (if (and (mh-valid-seq-p seq) (not (mh-folder-name-p seq)))
503 (apply 'mh-exec-cmd "mark" mh-current-folder "-add"
554 (mh-thread-generate mh-current-folder ()))
557 (mh-index-insert-folder-headers)))))))
603 (defun mh-read-range (prompt &optional folder default
607 If FOLDER is non-nil then a range is read from that folder, otherwise
608 use `mh-current-folder'.
614 folder has fewer than `mh-large-folder' messages then \"all\" messages
626 Otherwise if the folder has fewer than `mh-large-folder' messages then
637 (mh-read-msg-range folder flag)
641 (mh-read-range \"Suitable prompt\" folder t nil flag
646 (let* ((folder (or folder mh-current-folder))
648 (counts (and guess (mh-folder-size folder)))
650 (large (and counts mh-large-folder (> (car counts) mh-large-folder)))
651 (default (cond ((and guess large) (format "last:%s" mh-large-folder))
656 (format "%s (folder has %s messages, default %s)"
659 (format "%s (folder has %s messages)"
664 (seq-list (if (eq folder mh-current-folder)
666 (mh-read-folder-sequences folder nil)))
682 ((setq msg-list (mh-translate-range folder input)) msg-list)
697 (defun mh-translate-range (folder expr)
703 (apply #'mh-exec-cmd-quiet nil "mhpath" folder strings)
739 (defun mh-folder-size (folder)
742 (mh-folder-size-flist folder)
743 (mh-folder-size-folder folder)))
745 (defun mh-folder-size-flist (folder)
749 "-norecurse" folder "-sequence" (symbol-name mh-unseen-seq))
751 (multiple-value-bind (folder unseen total)
754 (values total unseen folder))))
756 (defun mh-folder-size-folder (folder)
757 "Find size of FOLDER using \"folder\"."
760 (mh-read-folder-sequences folder nil))))))
761 (call-process (expand-file-name "folder" mh-progs) nil t nil
762 "-norecurse" folder)
765 (values (string-to-number (match-string 1)) u folder)
766 (values 0 u folder)))))
769 (defun mh-parse-flist-output-line (line &optional current-folder)
770 "Parse LINE to generate folder name, unseen messages and total messages.
771 If CURRENT-FOLDER is non-nil then it contains the current folder
777 (let (folder unseen total p)
789 (setq folder (buffer-substring-no-properties
791 (when (and (equal (aref folder (1- (length folder))) ?+)
792 (equal current-folder folder))
793 (setq folder (substring folder 0 (1- (length folder)))))
794 (values (format "+%s" folder) unseen total)))))))
797 (defun mh-read-folder-sequences (folder save-refiles)
804 (if (mh-folder-name-p (mh-seq-name seq))
808 (if (eq 0 (mh-exec-cmd-quiet nil "mark" folder "-list"))
858 (with-mh-folder-updating (t)
950 (with-mh-folder-updating (t)
975 (with-mh-folder-updating (t)