Mercurial > emacs

comparison lisp/mh-e/mh-thread.el @ 68529:7daec5f4a289

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* 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 4bd450a8dbe2
children e3694f1cb928
comparison
equal deleted inserted replaced
68528:bd5e46db392c 68529:7daec5f4a289
294 (forward-line) 294 (forward-line)
295 (block nil 295 (block nil
296 (while (not (eobp)) 296 (while (not (eobp))
297 (forward-char address-start-offset) 297 (forward-char address-start-offset)
298 (unless (equal (string-match spaces (buffer-substring-no-properties 298 (unless (equal (string-match spaces (buffer-substring-no-properties
299 (point) (line-end-position))) 299 (point) (mh-line-end-position)))
300 0) 300 0)
301 (beginning-of-line) 301 (beginning-of-line)
302 (backward-char) 302 (backward-char)
303 (return)) 303 (return))
304 (forward-line))) 304 (forward-line)))
454 (defun mh-thread-parse-scan-line (&optional string) 454 (defun mh-thread-parse-scan-line (&optional string)
455 "Parse a scan line. 455 "Parse a scan line.
456 If optional argument STRING is given then that is assumed to be 456 If optional argument STRING is given then that is assumed to be
457 the scan line. Otherwise uses the line at point as the scan line 457 the scan line. Otherwise uses the line at point as the scan line
458 to parse." 458 to parse."
459 (let* ((string (or string 459 (let* ((string (or string (buffer-substring-no-properties
460 (buffer-substring-no-properties (line-beginning-position) 460 (mh-line-beginning-position)
461 (line-end-position)))) 461 (mh-line-end-position))))
462 (address-start (+ mh-cmd-note mh-scan-field-from-start-offset)) 462 (address-start (+ mh-cmd-note mh-scan-field-from-start-offset))
463 (body-start (+ mh-cmd-note mh-scan-field-from-end-offset)) 463 (body-start (+ mh-cmd-note mh-scan-field-from-end-offset))
464 (first-string (substring string 0 address-start))) 464 (first-string (substring string 0 address-start)))
465 (list first-string 465 (list first-string
466 (substring string address-start (- body-start 2)) 466 (substring string address-start (- body-start 2))
597 (case-fold-search t)) 597 (case-fold-search t))
598 (block nil 598 (block nil
599 (while (not (eobp)) 599 (while (not (eobp))
600 (block process-message 600 (block process-message
601 (let* ((index-line 601 (let* ((index-line
602 (prog1 (buffer-substring (point) (line-end-position)) 602 (prog1 (buffer-substring (point) (mh-line-end-position))
603 (forward-line))) 603 (forward-line)))
604 (index (string-to-number index-line)) 604 (index (string-to-number index-line))
605 (id (prog1 (buffer-substring (point) (line-end-position)) 605 (id (prog1 (buffer-substring (point) (mh-line-end-position))
606 (forward-line))) 606 (forward-line)))
607 (refs (prog1 (buffer-substring (point) (line-end-position)) 607 (refs (prog1
608 (buffer-substring (point) (mh-line-end-position))
608 (forward-line))) 609 (forward-line)))
609 (in-reply-to (prog1 (buffer-substring (point) 610 (in-reply-to (prog1 (buffer-substring (point)
610 (line-end-position)) 611 (mh-line-end-position))
611 (forward-line))) 612 (forward-line)))
612 (subject (prog1 613 (subject (prog1
613 (buffer-substring (point) (line-end-position)) 614 (buffer-substring
615 (point) (mh-line-end-position))
614 (forward-line))) 616 (forward-line)))
615 (subject-re-p nil)) 617 (subject-re-p nil))
616 (unless (gethash index mh-thread-scan-line-map) 618 (unless (gethash index mh-thread-scan-line-map)
617 (return-from process-message)) 619 (return-from process-message))
618 (unless (integerp index) (return)) ;Error message here 620 (unless (integerp index) (return)) ;Error message here