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

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

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

revision 1.20 by lute, Mon Jul 4 17:15:52 2005 UTC revision 1.21 by lh, Wed Aug 10 19:40:23 2005 UTC
# Line 1507  is used in previous versions and XEmacs. Line 1507  is used in previous versions and XEmacs.
1507             (not (member 'mh-folder-mode which-func-modes)))             (not (member 'mh-folder-mode which-func-modes)))
1508    (push 'mh-folder-mode which-func-modes))    (push 'mh-folder-mode which-func-modes))
1509    
1510    ;; Autoload cookie needed by desktop.el
1511    ;;;###autoload
1512  (define-derived-mode mh-folder-mode fundamental-mode "MH-Folder"  (define-derived-mode mh-folder-mode fundamental-mode "MH-Folder"
1513    "Major MH-E mode for \"editing\" an MH folder scan listing.\\<mh-folder-mode-map>    "Major MH-E mode for \"editing\" an MH folder scan listing.\\<mh-folder-mode-map>
1514    
# Line 1653  messages in that region. Line 1655  messages in that region.
1655      (set (make-local-variable (car pairs)) (car (cdr pairs)))      (set (make-local-variable (car pairs)) (car (cdr pairs)))
1656      (setq pairs (cdr (cdr pairs)))))      (setq pairs (cdr (cdr pairs)))))
1657    
 ;;;###autoload  
1658  (defun mh-restore-desktop-buffer (desktop-buffer-file-name  (defun mh-restore-desktop-buffer (desktop-buffer-file-name
1659                                    desktop-buffer-name                                    desktop-buffer-name
1660                                    desktop-buffer-misc)                                    desktop-buffer-misc)
# Line 1666  DESKTOP-BUFFER-MISC holds a list of misc Line 1667  DESKTOP-BUFFER-MISC holds a list of misc
1667    (mh-visit-folder desktop-buffer-name)    (mh-visit-folder desktop-buffer-name)
1668    (current-buffer))    (current-buffer))
1669    
1670    (add-to-list 'desktop-buffer-mode-handlers
1671                 '(mh-folder-mode . mh-restore-desktop-buffer))
1672    
1673  (defun mh-scan-folder (folder range &optional dont-exec-pending)  (defun mh-scan-folder (folder range &optional dont-exec-pending)
1674    "Scan the FOLDER over the RANGE.    "Scan the FOLDER over the RANGE.
1675  If the optional argument DONT-EXEC-PENDING is non-nil then pending deletes and  If the optional argument DONT-EXEC-PENDING is non-nil then pending deletes and

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

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