/[emacs]/emacs/lisp/mh-e/mh-utils.el
ViewVC logotype

Diff of /emacs/lisp/mh-e/mh-utils.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by wohler, Mon Feb 3 20:55:30 2003 UTC revision 1.3 by lektu, Tue Feb 4 13:15:32 2003 UTC
# Line 518  message about the fontification operatio Line 518  message about the fontification operatio
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    
# Line 658  Stronger than `save-excursion', weaker t Line 658  Stronger than `save-excursion', weaker t
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.
# Line 1532  The message number width portion of the Line 1532  The message number width portion of the
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))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26