Mercurial > emacs
comparison lisp/mh-e/mh-seq.el @ 68529:7daec5f4a289
* mh-alias.el (mh-alias-gecos-name): Use mh-replace-regexp-in-string
instead of replace-regexp-in-string.
(crm, multi-prompt): Use mh-require instead of require.
(mh-goto-address-find-address-at-point): Use
mh-line-beginning-position and mh-line-end-position instead of
line-beginning-position and line-end-position. Use
mh-match-string-no-properties instead of match-string-no-properties.
* mh-comp.el (mh-modify-header-field): Use mh-line-beginning-position
and mh-line-end-position instead of line-beginning-position and
line-end-position.
* mh-compat.el (mailabbrev): Use mh-require instead of require.
(mh-assoc-string, mh-display-completion-list, mh-face-foreground)
(mh-face-background): Make docstring consistent.
(mh-require, mh-cancel-timer, mh-display-color-cells)
(mh-line-beginning-position, mh-line-end-position)
(mh-match-string-no-properties, mh-replace-regexp-in-string)
(mh-view-mode-enter): Move definition here from mh-xemacs.el and add
mh- prefix since compatibility functions should have our package
prefix (mh-) by Emacs convention and to avoid messing up checks for
the same functions in other packages.
* mh-e.el (mh-compiling-flag): Move mh-xemacs-compiling-flag here from
mh-xemacs.el and rename.
(mh-xargs): Use mh-line-beginning-position and mh-line-end-position
instead of line-beginning-position and line-end-position.
(mh-defface-compat): Use mh-display-color-cells instead of
display-color-cells.
* mh-folder.el (which-func): Use mh-require instead of require.
* mh-funcs.el (mh-list-folders): Use mh-view-mode-enter instead of
view-mode-enter.
* mh-gnus.el (gnus-util, mm-bodies, mm-decode, mm-view, mml): Use
mh-require instead of require.
* mh-letter.el (mh-letter-header-end, mh-letter-mode)
(mh-letter-next-header-field): Use mh-line-beginning-position and
mh-line-end-position instead of line-beginning-position and
line-end-position.
* mh-limit.el (mh-subject-to-sequence-unthreaded): Use
mh-match-string-no-properties instead of match-string-no-properties.
(mh-narrow-to-header-field): Use mh-line-beginning-position and
mh-line-end-position instead of line-beginning-position and
line-end-position.
* mh-mime.el (mh-mime-inline-part, mh-mm-display-part)
(mh-mh-quote-unescaped-sharp, mh-mh-directive-present-p): Use
mh-line-beginning-position and mh-line-end-position instead of
line-beginning-position and line-end-position.
* mh-search.el (which-func): Use mh-require instead of require.
(mh-make-pick-template, mh-index-visit-folder)
(mh-pick-parse-search-buffer, mh-swish-next-result)
(mh-mairix-next-result, mh-namazu-next-result)
(mh-pick-next-result, mh-grep-next-result)
(mh-index-create-imenu-index, mh-index-match-checksum)
(mh-md5sum-parser, mh-openssl-parser, mh-index-update-maps): Use
mh-line-beginning-position and mh-line-end-position instead of
line-beginning-position and line-end-position.
* mh-seq.el (mh-list-sequences): Use mh-view-mode-enter instead of
view-mode-enter.
(mh-folder-size-flist, mh-parse-flist-output-line)
(mh-add-sequence-notation): Use mh-line-beginning-position and
mh-line-end-position instead of line-beginning-position and
line-end-position.
* mh-show.el (mh-show-addr): Use mh-require instead of require.
* mh-speed.el (mh-folder-speedbar-menu-items, mh-speed-toggle)
(mh-speed-view, mh-folder-speedbar-buttons)
(mh-speed-highlight, mh-speed-goto-folder)
(mh-speed-add-buttons, mh-speed-parse-flists-output)
(mh-speed-invalidate-map, mh-speedbar-change-expand-button-char)
(mh-speed-add-folder): Use mh-line-beginning-position and
mh-line-end-position instead of line-beginning-position and
line-end-position.
(mh-speed-flists): Use mh-cancel-timer instead of cancel-timer.
* mh-thread.el (mh-thread-find-children)
(mh-thread-parse-scan-line, mh-thread-generate): Use
mh-line-beginning-position and mh-line-end-position instead of
line-beginning-position and line-end-position.
* mh-utils.el (mh-colors-available-p): Use mh-display-color-cells
instead of display-color-cells.
(mh-folder-list): Use mh-replace-regexp-in-string instead of
replace-regexp-in-string.
(mh-sub-folders-actual, mh-letter-toggle-header-field-display): Use
mh-line-beginning-position and mh-line-end-position instead of
line-beginning-position and line-end-position.
* mh-comp.el (mh-send-sub): Don't find components file in current
directory--this seems to have been a side-effect of commenting out the
use of an old mh-etc variable. Improve error message.
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Wed, 01 Feb 2006 23:24:34 +0000 |
| parents | 37d03b3298bf |
| children | 0e0916499a15 d6f8fe3307c8 |
comparison
equal
deleted
inserted
replaced
| 68528:bd5e46db392c | 68529:7daec5f4a289 |
|---|---|
| 173 (insert (format (format "%%%ss" (length name-spec)) ""))) | 173 (insert (format (format "%%%ss" (length name-spec)) ""))) |
| 174 (insert next-element))) | 174 (insert next-element))) |
| 175 (insert "\n")) | 175 (insert "\n")) |
| 176 (setq seq-list (cdr seq-list))) | 176 (setq seq-list (cdr seq-list))) |
| 177 (goto-char (point-min)) | 177 (goto-char (point-min)) |
| 178 (view-mode-enter) | 178 (mh-view-mode-enter) |
| 179 (setq view-exit-action 'kill-buffer) | 179 (setq view-exit-action 'kill-buffer) |
| 180 (message "Listing sequences...done"))))) | 180 (message "Listing sequences...done"))))) |
| 181 | 181 |
| 182 ;;;###mh-autoload | 182 ;;;###mh-autoload |
| 183 (defun mh-msg-is-in-seq (message) | 183 (defun mh-msg-is-in-seq (message) |
| 747 (call-process (expand-file-name "flist" mh-progs) nil t nil "-showzero" | 747 (call-process (expand-file-name "flist" mh-progs) nil t nil "-showzero" |
| 748 "-norecurse" folder "-sequence" (symbol-name mh-unseen-seq)) | 748 "-norecurse" folder "-sequence" (symbol-name mh-unseen-seq)) |
| 749 (goto-char (point-min)) | 749 (goto-char (point-min)) |
| 750 (multiple-value-bind (folder unseen total) | 750 (multiple-value-bind (folder unseen total) |
| 751 (mh-parse-flist-output-line | 751 (mh-parse-flist-output-line |
| 752 (buffer-substring (point) (line-end-position))) | 752 (buffer-substring (point) (mh-line-end-position))) |
| 753 (values total unseen folder)))) | 753 (values total unseen folder)))) |
| 754 | 754 |
| 755 (defun mh-folder-size-folder (folder) | 755 (defun mh-folder-size-folder (folder) |
| 756 "Find size of FOLDER using \"folder\"." | 756 "Find size of FOLDER using \"folder\"." |
| 757 (with-temp-buffer | 757 (with-temp-buffer |
| 775 (goto-char (point-max)) | 775 (goto-char (point-max)) |
| 776 (let (folder unseen total p) | 776 (let (folder unseen total p) |
| 777 (when (search-backward " out of " (point-min) t) | 777 (when (search-backward " out of " (point-min) t) |
| 778 (setq total (string-to-number | 778 (setq total (string-to-number |
| 779 (buffer-substring-no-properties | 779 (buffer-substring-no-properties |
| 780 (match-end 0) (line-end-position)))) | 780 (match-end 0) (mh-line-end-position)))) |
| 781 (when (search-backward " in sequence " (point-min) t) | 781 (when (search-backward " in sequence " (point-min) t) |
| 782 (setq p (point)) | 782 (setq p (point)) |
| 783 (when (search-backward " has " (point-min) t) | 783 (when (search-backward " has " (point-min) t) |
| 784 (setq unseen (string-to-number (buffer-substring-no-properties | 784 (setq unseen (string-to-number (buffer-substring-no-properties |
| 785 (match-end 0) p))) | 785 (match-end 0) p))) |
| 953 ;; Change the buffer so that if transient-mark-mode is active | 953 ;; Change the buffer so that if transient-mark-mode is active |
| 954 ;; and there is an active region it will get deactivated as in | 954 ;; and there is an active region it will get deactivated as in |
| 955 ;; the case of user sequences. | 955 ;; the case of user sequences. |
| 956 (mh-notate nil nil mh-cmd-note) | 956 (mh-notate nil nil mh-cmd-note) |
| 957 (when font-lock-mode | 957 (when font-lock-mode |
| 958 (font-lock-fontify-region (point) (line-end-position)))) | 958 (font-lock-fontify-region (point) (mh-line-end-position)))) |
| 959 (forward-char (+ mh-cmd-note mh-scan-field-destination-offset)) | 959 (forward-char (+ mh-cmd-note mh-scan-field-destination-offset)) |
| 960 (let ((stack (gethash msg mh-sequence-notation-history))) | 960 (let ((stack (gethash msg mh-sequence-notation-history))) |
| 961 (setf (gethash msg mh-sequence-notation-history) | 961 (setf (gethash msg mh-sequence-notation-history) |
| 962 (cons (char-after) stack))) | 962 (cons (char-after) stack))) |
| 963 (mh-notate nil mh-note-seq | 963 (mh-notate nil mh-note-seq |