Lines Matching +defs:mouse +defs:msg
122 (defvar mh-first-msg-num nil
125 (defvar mh-last-msg-num nil
126 "Number of last msg in buffer.")
128 (defvar mh-msg-count nil
139 ["Add Message to Sequence..." mh-put-msg-in-seq (mh-get-msg-num nil)]
140 ["List Sequences for Message" mh-msg-is-in-seq (mh-get-msg-num nil)]
141 ["Delete Message from Sequence..." mh-delete-msg-from-seq
142 (mh-get-msg-num nil)]
161 ["Show Message" mh-show (mh-get-msg-num nil)]
162 ["Show Message with Header" mh-header-display (mh-get-msg-num nil)]
163 ["Next Message" mh-next-undeleted-msg t]
164 ["Previous Message" mh-previous-undeleted-msg t]
165 ["Go to First Message" mh-first-msg t]
166 ["Go to Last Message" mh-last-msg t]
167 ["Go to Message by Number..." mh-goto-msg t]
169 ["Delete Message" mh-delete-msg (mh-get-msg-num nil)]
170 ["Refile Message" mh-refile-msg (mh-get-msg-num nil)]
176 ["Reply to Message..." mh-reply (mh-get-msg-num nil)]
177 ["Forward Message..." mh-forward (mh-get-msg-num nil)]
178 ["Redistribute Message..." mh-redistribute (mh-get-msg-num nil)]
179 ["Edit Message Again" mh-edit-again (mh-get-msg-num nil)]
182 ["Copy Message to Folder..." mh-copy-msg (mh-get-msg-num nil)]
183 ["Print Message" mh-print-msg (mh-get-msg-num nil)]
184 ["Write Message to File..." mh-write-msg-to-file
185 (mh-get-msg-num nil)]
186 ["Pipe Message to Command..." mh-pipe-msg (mh-get-msg-num nil)]
187 ["Unpack Uuencoded Message..." mh-store-msg (mh-get-msg-num nil)]
188 ["Burst Digest Message" mh-burst-digest (mh-get-msg-num nil)]))
222 (defalias 'mh-alt-refile-msg 'mh-refile-msg)
228 " " mh-page-msg
234 ">" mh-write-msg-to-file
239 "\C-d" mh-delete-msg-no-motion
243 "\e<" mh-first-msg
244 "\e>" mh-last-msg
247 "^" mh-alt-refile-msg
248 "c" mh-copy-msg
249 "d" mh-delete-msg
252 "g" mh-goto-msg
256 "n" mh-next-undeleted-msg
257 "\M-n" mh-next-unread-msg
258 "o" mh-refile-msg
259 "p" mh-previous-undeleted-msg
260 "\M-p" mh-previous-unread-msg
268 "|" mh-pipe-msg)
298 "f" mh-ps-print-msg-file
299 "l" mh-print-msg
300 "p" mh-ps-print-msg)
305 "d" mh-delete-msg-from-seq
309 "p" mh-put-msg-in-seq
310 "s" mh-msg-is-in-seq
334 "s" mh-store-msg ;shar
335 "u" mh-store-msg) ;uuencode
357 (define-key mh-folder-mode-map [button2] 'mh-show-mouse))
359 (define-key mh-folder-mode-map [mouse-2] 'mh-show-mouse)))
414 (list (concat mh-scan-deleted-msg-regexp ".*")
417 (list (concat mh-scan-refiled-msg-regexp ".*")
427 (list mh-scan-cur-msg-number-regexp
428 '(1 'mh-folder-cur-msg-number))
430 (list mh-scan-good-msg-regexp
431 '(1 'mh-folder-msg-number))
476 (let ((cur-msg (mh-get-msg-num nil)))
482 ((member cur-msg ,cache)
492 (not (member (mh-get-msg-num nil) ,cache))))
494 (let ((cur-msg (mh-get-msg-num nil)))
496 (not (member cur-msg ,cache)))
499 ((member cur-msg ,cache)
560 `mh-forward' or `mh-refile-msg' take a RANGE argument. This argument
635 'mh-index-msg-checksum-map nil ; msg -> checksum map
636 'mh-index-checksum-origin-map nil ; checksum -> ( orig-folder, orig-msg )
638 'mh-first-msg-num nil ; Number of first msg in buffer
639 'mh-last-msg-num nil ; Number of last msg in buffer
640 'mh-msg-count nil ; Number of msgs in buffer
678 (defun mh-delete-msg (range)
684 \\[mh-previous-undeleted-msg], then the next message displayed is
686 Use \\[mh-next-undeleted-msg] to force subsequent
687 \\[mh-delete-msg] commands to move forward to the next undeleted
690 The hook `mh-delete-msg-hook' is called after you mark a message
697 (mh-delete-msg-no-motion range)
698 (if (looking-at mh-scan-deleted-msg-regexp)
699 (mh-next-msg)))
702 (defun mh-delete-msg-no-motion (range)
713 (mh-delete-a-msg nil)))
734 (mh-goto-cur-msg) ; after mh-set-scan-mode for efficiency
739 (defun mh-first-msg ()
747 (defun mh-goto-msg (number &optional no-error-if-no-message dont-show)
751 \\[mh-goto-msg]. In the latter case, Emacs prompts you.
763 (unless (re-search-forward (format (mh-scan-msg-search-regexp) number)
819 (defun mh-last-msg ()
839 (let* ((message (or message (mh-get-msg-num t)))
840 (msg-filename (mh-msg-filename message))
842 (when (not (file-exists-p msg-filename))
850 msg-filename))
854 (find-file msg-filename)
881 (defun mh-next-undeleted-msg (&optional count wait-after-complaining-flag)
893 (cond ((re-search-forward mh-scan-good-msg-regexp nil t count)
901 (defun mh-next-unread-msg (&optional count)
908 (error "The function `mh-next-unread-msg' expects positive argument"))
911 (cur-msg (mh-get-msg-num nil)))
912 (cond ((and (not cur-msg) (not (bobp))
917 (setq cur-msg (mh-get-msg-num nil)))
919 ((or (null unread-sequence) (not cur-msg))
924 (while (and unread-sequence (>= cur-msg (car unread-sequence)))
931 (t (loop for msg in unread-sequence
932 when (mh-goto-msg msg t) return nil
936 (defun mh-page-msg (&optional lines)
944 (if mh-page-to-next-msg-flag
946 (mh-previous-undeleted-msg)
947 (mh-next-undeleted-msg))
957 (setq mh-page-to-next-msg-flag t))
981 (defun mh-previous-undeleted-msg (&optional count wait-after-complaining-flag)
993 (cond ((re-search-backward mh-scan-good-msg-regexp nil t count)
999 (defun mh-previous-unread-msg (&optional count)
1006 (error "The function `mh-previous-unread-msg' expects positive argument"))
1009 (cur-msg (mh-get-msg-num nil)))
1010 (cond ((and (not cur-msg) (not (bobp))
1015 (setq cur-msg (mh-get-msg-num nil)))
1017 ((or (null unread-sequence) (not cur-msg))
1022 (while (and unread-sequence (>= (car unread-sequence) cur-msg))
1029 (t (loop for msg in unread-sequence
1030 when (mh-goto-msg msg t) return nil
1071 (defun mh-refile-msg (range folder &optional dont-update-last-destination-flag)
1078 The hook `mh-refile-msg-hook' is called after a message is marked to
1093 (mh-refile-a-msg nil folder))
1094 (when (looking-at mh-scan-refiled-msg-regexp) (mh-next-msg)))
1102 refile (\\[mh-refile-msg]) or write (\\[mh-write-msg-to-file]).
1114 (mh-refile-msg range (cdr mh-last-destination))
1117 (mh-iterate-on-range msg range
1118 (apply 'mh-write-msg-to-file msg (cdr mh-last-destination)))
1119 (mh-next-msg interactive-flag))))
1143 (msg-num (mh-get-msg-num nil)))
1148 (mh-goto-msg msg-num t t))
1152 (defun mh-show-mouse (event)
1153 "Move point to mouse EVENT and show message."
1155 (mouse-set-point event)
1189 (while (not (or (looking-at mh-scan-deleted-msg-regexp)
1190 (looking-at mh-scan-refiled-msg-regexp)
1195 (if (or (looking-at mh-scan-deleted-msg-regexp)
1196 (looking-at mh-scan-refiled-msg-regexp))
1198 (mh-undo-msg (mh-get-msg-num t))
1203 (mh-undo-msg nil))))
1252 mh-index-msg-checksum-map (make-hash-table :test #'equal)
1272 (defun mh-write-msg-to-file (message file no-header)
1281 (list (mh-get-msg-num t)
1293 (let ((msg-file-to-output (mh-msg-filename message))
1300 (insert-file-contents msg-file-to-output)
1317 (new-cur (mh-get-msg-num nil)))
1325 (if (looking-at mh-scan-good-msg-regexp)
1391 (re-search-forward mh-scan-msg-overflow-regexp nil 0 1))
1415 (mh-goto-cur-msg))
1444 (mh-set-cmd-note (mh-msg-num-width-to-column (mh-msg-num-width folder)))
1450 (t (while (re-search-forward (mh-scan-msg-number-regexp) nil 0 1)
1468 (defun mh-goto-cur-msg (&optional minimal-changes-flag)
1472 (let ((cur-msg (car (mh-seq-to-msgs 'cur))))
1473 (cond ((and cur-msg
1474 (mh-goto-msg cur-msg t t))
1478 (mh-maybe-show cur-msg)))
1567 (mh-mapc #'(lambda (folder-msg-list)
1568 (let* ((dest-folder (symbol-name (car folder-msg-list)))
1570 (msgs (cdr folder-msg-list)))
1575 (mh-coalesce-msg-list msgs))
1581 for msg in (sort (copy-sequence msgs) #'<)
1582 do (loop for seq-name in (gethash msg seq-map)
1592 (mh-coalesce-msg-list msgs))))
1601 (mh-coalesce-msg-list mh-delete-list))
1608 (mh-define-sequence 'cur (list (or (mh-get-msg-num nil) "last"))))
1619 ;; If "inc" were to put a new msg in this file,
1638 (when (mh-goto-msg (car msgs) t t)
1661 (mh-first-msg)
1662 (let ((new-first-msg-num (mh-get-msg-num nil)))
1664 (null mh-first-msg-num)
1665 (null new-first-msg-num)
1666 (< new-first-msg-num mh-first-msg-num))
1667 (setq mh-first-msg-num new-first-msg-num)))
1668 (mh-last-msg)
1669 (let ((new-last-msg-num (mh-get-msg-num nil)))
1671 (null mh-last-msg-num)
1672 (null new-last-msg-num)
1673 (> new-last-msg-num mh-last-msg-num))
1674 (setq mh-last-msg-num new-last-msg-num)))
1675 (setq mh-msg-count (if mh-first-msg-num
1679 (list (format " {%%b%s} %s msg%s"
1683 (if (zerop mh-msg-count)
1685 (format "%d" mh-msg-count))
1686 (if (zerop mh-msg-count)
1688 (cond ((> mh-msg-count 1)
1689 (format "s (%d-%d)" mh-first-msg-num
1690 mh-last-msg-num))
1691 (mh-first-msg-num
1692 (format " (%d)" mh-first-msg-num))
1722 (mh-goto-cur-msg))
1756 (mh-set-cmd-note (mh-msg-num-width-to-column (mh-msg-num-width
1801 (mh-set-cmd-note (mh-msg-num-width-to-column (mh-msg-num-width name))))
1812 (defun mh-next-msg (&optional wait-after-complaining-flag)
1818 (mh-next-undeleted-msg 1 wait-after-complaining-flag)
1819 (mh-previous-undeleted-msg 1 wait-after-complaining-flag)))
1831 (let ((refile-file (ignore-errors (mh-msg-filename (mh-get-msg-num t)))))
1903 (defun mh-delete-a-msg (message)
1906 The hook `mh-delete-msg-hook' is called after you mark a message
1911 (mh-goto-msg message nil t)
1913 (setq message (mh-get-msg-num t)))
1914 (if (looking-at mh-scan-refiled-msg-regexp)
1916 (if (looking-at mh-scan-deleted-msg-regexp)
1921 (run-hooks 'mh-delete-msg-hook))))
1924 (defun mh-refile-a-msg (message folder)
1928 The hook `mh-refile-msg-hook' is called after a message is marked to
1932 (mh-goto-msg message nil t)
1934 (setq message (mh-get-msg-num t)))
1935 (cond ((looking-at mh-scan-deleted-msg-regexp)
1937 ((looking-at mh-scan-refiled-msg-regexp)
1941 (mh-exec-cmd "refile" (mh-get-msg-num t) "-link"
1952 (run-hooks 'mh-refile-msg-hook)))))
1954 (defun mh-undo-msg (msg)
1958 (if (numberp msg)
1959 (mh-goto-msg msg t t)
1961 (setq msg (mh-get-msg-num t)))
1962 (cond ((memq msg mh-delete-list)
1963 (setq mh-delete-list (delq msg mh-delete-list)))
1965 (dolist (folder-msg-list mh-refile-list)
1966 (setf (cdr folder-msg-list) (remove msg (cdr folder-msg-list))))
1972 (defun mh-msg-filename (msg &optional folder)
1974 (expand-file-name (int-to-string msg)