Lines Matching +defs:set +defs:line
108 (defvar mh-partial-folder-mode-line-annotation "select"
371 ;; example, the first line is "ways to view messages," the second line is
401 See `mh-set-help'.")
450 (set-match-data (list (match-beginning 1) (match-end 3)
452 (set-match-data (list (match-beginning 3) (match-end 3)
483 (let ((bpoint (progn (beginning-of-line)(point)))
484 (epoint (progn (forward-line 1)(point))))
486 (set-match-data (list bpoint epoint bpoint epoint))
489 ;; move forward one line at a time, checking each message
490 (while (and (= 0 (forward-line 1))
500 (let ((bpoint (progn (beginning-of-line) (point)))
501 (epoint (progn (forward-line 1) (point))))
503 (set-match-data
523 (fboundp 'set-specifier))
524 (set-specifier horizontal-scrollbar-visible-p nil
592 If the option `transient-mark-mode' is set to t and you set a
600 (set (make-local-variable 'tool-bar-map) mh-folder-tool-bar-map))
641 'mh-mode-line-annotation nil ; Indicates message range
655 (make-local-variable 'hl-line-mode) ; avoid pollution
656 (mh-funcall-if-exists hl-line-mode 1)
663 (mh-set-help mh-folder-mode-help-messages)
733 (mh-set-scan-mode)
734 (mh-goto-cur-msg) ; after mh-set-scan-mode for efficiency
735 (mh-make-folder-mode-line)
744 (forward-line 1)))
769 (beginning-of-line)
810 (not (equal (forward-line (1+ mh-large-folder)) 0))
814 (beginning-of-line)
824 (forward-line -1))
848 (equal (save-excursion (set-buffer mh-show-buffer)
892 (forward-line 1)
894 (beginning-of-line)
896 (t (forward-line -1)
913 ;; If we are at the end of the buffer back up one line and go
916 (forward-line -1)
992 (beginning-of-line)
1011 ;; If we are at the end of the buffer back up one line and go
1014 (forward-line -1)
1067 (set-window-configuration mh-previous-window-config))
1155 (mouse-set-point event)
1170 (mh-set-scan-mode)
1188 (beginning-of-line)
1193 (save-excursion (forward-line) (eobp)))))
1194 (forward-line (if (eq mh-next-direction 'forward) -1 1)))
1205 (mh-set-folder-modified-p nil)))
1247 (set-buffer folder)
1261 (not (equal (forward-line (1+ mh-large-folder)) 0))
1298 (set-buffer (get-buffer-create mh-temp-buffer))
1316 (let ((folder-set (mh-update-unseen))
1324 (beginning-of-line)
1327 (or folder-set
1410 (mh-make-folder-mode-line)
1423 one line that looks like a truncated message number was found.
1426 messages cur-last. Call `mh-set-cmd-note', adjusting the notation
1429 Reformat the message number width on each line in the buffer and trim
1430 the line length to fit in the window.
1434 line now with no message truncation."
1444 (mh-set-cmd-note (mh-msg-num-width-to-column (mh-msg-num-width folder)))
1456 ;; trim the line to fix in the window
1457 (end-of-line)
1496 (forward-line (- (/ (window-height) 2) 2))
1500 (while (> (point-max) (progn (forward-line) (point)))
1508 Return non-nil iff the MH folder was set.
1522 t) ;since we set the folder
1530 (set-buffer mh-show-folder-buffer))
1534 (defun mh-set-folder-modified-p (flag)
1536 (set-buffer-modified-p flag))
1545 (set-buffer folder)
1641 (mh-delete-line 1))
1644 (defun mh-set-scan-mode ()
1649 (force-mode-line-update)
1654 (defun mh-make-folder-mode-line (&optional ignored)
1655 "Set the fields of the mode line for a folder buffer.
1658 `mh-mode-line-annotation'."
1678 (setq mode-line-buffer-identification
1680 (if mh-mode-line-annotation
1681 (format "/%s" mh-mode-line-annotation)
1731 (set-buffer folder)
1737 (set-buffer folder)
1756 (mh-set-cmd-note (mh-msg-num-width-to-column (mh-msg-num-width
1769 "scan: message set .* does not exist"
1778 (setq mh-mode-line-annotation
1781 mh-partial-folder-mode-line-annotation)))
1782 (mh-make-folder-mode-line))
1791 (setq mh-thread-scan-line-map-stack ())
1801 (mh-set-cmd-note (mh-msg-num-width-to-column (mh-msg-num-width name))))
1804 (mh-set-folder-modified-p nil)
1809 (mh-make-folder-mode-line))
1834 (set-buffer (get-buffer-create mh-temp-buffer))
1896 ;; If mh-default-folder-must-exist-flag set, check that folder exists.
1912 (beginning-of-line)
1918 (mh-set-folder-modified-p t)
1933 (beginning-of-line)
1946 (mh-set-folder-modified-p t)
1960 (beginning-of-line)