518 |
|
|
519 |
;; Full path of directory for this folder. |
;; Full path of directory for this folder. |
520 |
(defvar mh-folder-filename nil) |
(defvar mh-folder-filename nil) |
521 |
|
|
522 |
;;Number of msgs in buffer. |
;;Number of msgs in buffer. |
523 |
(defvar mh-msg-count nil) |
(defvar mh-msg-count nil) |
524 |
|
|
658 |
(clear-visited-file-modtime) |
(clear-visited-file-modtime) |
659 |
(unlock-buffer) |
(unlock-buffer) |
660 |
(setq buffer-file-name nil)) |
(setq buffer-file-name nil)) |
661 |
|
|
662 |
;;;###mh-autoload |
;;;###mh-autoload |
663 |
(defun mh-get-msg-num (error-if-no-message) |
(defun mh-get-msg-num (error-if-no-message) |
664 |
"Return the message number of the displayed message. |
"Return the message number of the displayed message. |
1532 |
(format mh-scan-msg-format-string width) |
(format mh-scan-msg-format-string width) |
1533 |
(substring fmt end)))) |
(substring fmt end)))) |
1534 |
fmt)) |
fmt)) |
1535 |
|
|
1536 |
(defun mh-message-number-width (folder) |
(defun mh-message-number-width (folder) |
1537 |
"Return the widest message number in this FOLDER." |
"Return the widest message number in this FOLDER." |
1538 |
(or mh-progs (mh-find-path)) |
(or mh-progs (mh-find-path)) |