Lines Matching +defs:pretty +defs:name
63 Expected to return a list of three strings: name of the folder,
156 with the folder name.\\<mh-folder-mode-map>
227 (upcase-initials (symbol-name mh-searcher)))))
251 (mh-index-generate-pretty-name search-regexp))))
254 (let ((buffer-name (buffer-name (current-buffer))))
255 (mh-process-or-undo-commands buffer-name)
256 (save-excursion (mh-exec-cmd-quiet nil "rmf" buffer-name))
257 (mh-exec-cmd-quiet nil "folder" "-create" "-fast" buffer-name)
258 (setq index-folder buffer-name))
321 (upcase-initials (symbol-name mh-searcher))
470 (let ((seq (symbol-name mh-flists-sequence)))
471 (insert "for folder in `" (expand-file-name "flists" mh-progs) " "
481 (expand-file-name "mhpath" mh-progs) " \"+$folder\" " seq "\n"
657 the header name to search in or nil to search the whole message.
863 -o -name \"[0-9]*\" -print \\
901 (if (car elem) (symbol-name (car elem)) "")
913 (symbol-name (car expr))
1201 (let ((file-name (buffer-substring-no-properties
1203 (unless (equal (string-match mh-namazu-folder file-name) 0)
1205 (unless (file-exists-p file-name)
1207 (string-match mh-user-path file-name)
1208 (let* ((folder/msg (substring file-name (match-end 0)))
1241 (apply #'call-process (expand-file-name "pick" mh-progs)
1492 (defun mh-index-generate-pretty-name (string)
1493 "Given STRING generate a name which is suitable for use as a folder name.
1495 the name are replaced with underscores and all / are replaced
1498 construct the base name."
1530 (and (mh-folder-name-p folder)
1542 (defun mh-index-new-folder (name search-regexp)
1543 "Return a folder name based on NAME for search results of SEARCH-REGEXP.
1550 This is repeated till we find a new folder name.
1553 (unless (mh-folder-name-p name)
1554 (error "The argument should be a valid MH folder name"))
1555 (let ((chosen-name
1557 for candidate = (if (equal i 1) name (format "%s-%s" name i))
1563 (when (get-buffer chosen-name)
1564 (mh-process-or-undo-commands chosen-name))
1566 (save-excursion (mh-exec-cmd-quiet nil "rmf" chosen-name))
1567 (mh-exec-cmd-quiet nil "folder" "-create" "-fast" chosen-name)
1568 (mh-remove-from-sub-folders-cache chosen-name)
1570 (mh-speed-add-folder chosen-name))
1571 chosen-name))
1611 "-sequence" (symbol-name (car seq)) "-add"
1642 "-add" "-nozero" "-sequence" (symbol-name seq)
1667 "-del" "-nozero" "-sequence" (symbol-name seq)
1731 (outfile (concat buffer-file-name mh-index-data-file))
1757 (let ((infile (concat buffer-file-name mh-index-data-file))