Lines Matching +defs:buffer +defs:modified
62 (unless (get-buffer mh-inbox)
83 ;; desktop-buffer-mode-handlers appeared in Emacs 22.
84 (if (fboundp 'desktop-buffer-mode-handlers)
85 (add-to-list 'desktop-buffer-mode-handlers
86 '(mh-folder-mode . mh-restore-desktop-buffer)))
88 (defun mh-restore-desktop-buffer (desktop-buffer-file-name
89 desktop-buffer-name
90 desktop-buffer-misc)
91 "Restore an MH folder buffer specified in a desktop file.
92 When desktop creates a buffer, DESKTOP-BUFFER-FILE-NAME holds the
93 file name to visit, DESKTOP-BUFFER-NAME holds the desired buffer
95 used by the `desktop-buffer-handlers' functions."
97 (mh-visit-folder desktop-buffer-name)
98 (current-buffer))
123 "Number of first message in buffer.")
126 "Number of last msg in buffer.")
129 "Number of msgs in buffer.")
410 ;; Folders when displaying index buffer
443 "Keywords (regular expressions) used to fontify the MH-Folder buffer.")
471 (make-variable-buffer-local ',cache)
479 ((>= (point) limit) ;Presumably at end of buffer
525 (cons (current-buffer) nil)))))
533 (defvar desktop-save-buffer)
593 region in the MH-Folder buffer, then the MH-E command will
605 (make-local-variable 'desktop-save-buffer)
606 (setq desktop-save-buffer t)
610 'mh-current-folder (buffer-name) ; Name of folder, a string
611 'mh-show-buffer (format "show-%s" (buffer-name)) ; Buffer that displays msgs
613 (file-name-as-directory (mh-expand-file-name (buffer-name)))
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
651 (setq buffer-offer-save t)
654 (make-local-variable 'revert-buffer-function)
657 (setq revert-buffer-function 'mh-undo-folder)
796 (when (and mh-show-buffer (get-buffer mh-show-buffer))
797 (delete-windows-on mh-show-buffer))
798 (cond ((not (get-buffer folder))
802 ((not (eq (current-buffer) (get-buffer folder)))
803 (switch-to-buffer folder)
834 editable buffer. When you are done editing, save and kill the
835 buffer as you would any other.
841 edit-buffer)
845 ;; Invalidate the show buffer if it is showing the same message that is
847 (when (and (buffer-live-p (get-buffer mh-show-buffer))
848 (equal (save-excursion (set-buffer mh-show-buffer)
849 buffer-file-name)
851 (mh-invalidate-show-buffer))
855 (setq edit-buffer (current-buffer))
857 ;; Set buffer properties
861 ;; Just show the edit buffer...
863 (switch-to-buffer edit-buffer)))
869 If the end of the buffer is reached then the search wraps over to
870 the start of the buffer.
877 (mh-in-show-buffer (mh-show-buffer)
913 ;; If we are at the end of the buffer back up one line and go
920 ;; No unread message or there aren't any messages in buffer...
948 (if (mh-in-show-buffer (mh-show-buffer)
965 If the beginning of the buffer is reached then the search wraps
966 over to the end of the buffer."
977 (mh-in-show-buffer (mh-show-buffer)
1011 ;; If we are at the end of the buffer back up one line and go
1018 ;; No unread message or there aren't any messages in buffer...
1042 session by selecting the \"+inbox\" buffer or by running \\[mh-rmail]
1053 (let ((show-buffer (get-buffer mh-show-buffer)))
1054 (when show-buffer
1055 (kill-buffer show-buffer)))
1058 (bury-buffer (current-buffer))
1061 (dolist (buffer (buffer-list))
1062 (when (or (string-match "^ \\*mh-" (buffer-name buffer))
1063 (string-match "^\\*MH-E " (buffer-name buffer)))
1064 (kill-buffer buffer)))
1163 mode. MH-Folder mode turns off the associated show buffer so that
1205 (mh-set-folder-modified-p nil)))
1215 The folder buffer will show just unseen messages if there are any;
1216 otherwise, it will show all the messages in the buffer as long there
1233 FOLDER are displayed. If an index buffer is being created then
1234 INDEX-DATA is used to initialize the index buffer specific data
1242 (current-buffer (current-buffer))
1246 (when (get-buffer folder)
1247 (set-buffer folder)
1267 (unless (eq current-buffer (current-buffer))
1298 (set-buffer (get-buffer-create mh-temp-buffer))
1299 (erase-buffer)
1341 "Read new mail from MAILDROP-NAME into the current buffer.
1342 Return in the current buffer."
1374 (let ((saved-text (buffer-substring-no-properties
1429 Reformat the message number width on each line in the buffer and trim
1442 ;; Update the current buffer to reflect the new mh-cmd-note
1446 ;; Cleanup the messages that are in the buffer right now
1453 (buffer-substring
1471 function doesn't recenter the folder buffer."
1487 - At the end of the buffer it tries to show fewer empty lines.
1489 - operates only if the current buffer is in the selected window.
1493 (cond ((not (eq (get-buffer-window (current-buffer)) (selected-window)))
1530 (set-buffer mh-show-folder-buffer))
1534 (defun mh-set-folder-modified-p (flag)
1535 "Mark current folder as modified or unmodified according to FLAG."
1536 (set-buffer-modified-p flag))
1545 (set-buffer folder)
1607 (if (> (buffer-size) 0)
1610 ;; Redraw folder buffer if needed
1617 (and (buffer-file-name (get-buffer mh-show-buffer))
1618 (not (file-exists-p (buffer-file-name (get-buffer mh-show-buffer))))
1621 (mh-invalidate-show-buffer))
1645 "Display the scan listing buffer, but do not show a message."
1646 (if (get-buffer mh-show-buffer)
1647 (delete-windows-on mh-show-buffer))
1655 "Set the fields of the mode line for a folder buffer.
1657 used to pass in what is now stored in the buffer-local variable
1678 (setq mode-line-buffer-identification
1700 After the scan is performed, switch to the buffer associated with
1710 (cond ((null (get-buffer folder))
1716 (switch-to-buffer folder)))
1718 (if (zerop (buffer-size))
1730 show buffer."
1731 (set-buffer folder)
1737 (set-buffer folder)
1740 (mh-invalidate-show-buffer))
1788 Also removes all content from the folder buffer."
1792 (let ((buffer-read-only nil)) (erase-buffer)))
1797 (switch-to-buffer name)
1798 (setq buffer-read-only nil)
1799 (erase-buffer)
1802 (setq buffer-read-only t)
1804 (mh-set-folder-modified-p nil)
1805 (setq buffer-file-name mh-folder-filename)
1807 (file-exists-p (concat buffer-file-name mh-index-data-file)))
1813 "Move backward or forward to the next undeleted message in the buffer.
1834 (set-buffer (get-buffer-create mh-temp-buffer))
1835 (erase-buffer)
1838 (let ((buffer-file-name refile-file))
1918 (mh-set-folder-modified-p t)
1946 (mh-set-folder-modified-p t)