/[emacs]/emacs/lisp/gnus/gnus-salt.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-salt.el

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

revision 1.10 by monnier, Tue Sep 7 03:47:29 2004 UTC revision 1.11 by miles, Mon May 30 08:20:18 2005 UTC
# Line 1  Line 1 
1  ;;; gnus-salt.el --- alternate summary mode interfaces for Gnus  ;;; gnus-salt.el --- alternate summary mode interfaces for Gnus
2    
3  ;; Copyright (C) 1996, 1997, 1998, 1999, 2001  ;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2002, 2004, 2005
4  ;;        Free Software Foundation, Inc.  ;;        Free Software Foundation, Inc.
5    
6  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
# Line 496  Two predefined functions are available: Line 496  Two predefined functions are available:
496      (gnus-set-work-buffer)      (gnus-set-work-buffer)
497      (gnus-tree-node-insert (make-mail-header "") nil)      (gnus-tree-node-insert (make-mail-header "") nil)
498      (setq gnus-tree-node-length (1- (point))))      (setq gnus-tree-node-length (1- (point))))
499    (gnus-run-hooks 'gnus-tree-mode-hook))    (gnus-run-mode-hooks 'gnus-tree-mode-hook))
500    
501  (defun gnus-tree-read-summary-keys (&optional arg)  (defun gnus-tree-read-summary-keys (&optional arg)
502    "Read a summary buffer key sequence and execute it."    "Read a summary buffer key sequence and execute it."
# Line 1009  The following commands are available: Line 1009  The following commands are available:
1009    (buffer-disable-undo)    (buffer-disable-undo)
1010    (setq buffer-read-only t)    (setq buffer-read-only t)
1011    (make-local-variable 'gnus-carpal-attached-buffer)    (make-local-variable 'gnus-carpal-attached-buffer)
1012    (gnus-run-hooks 'gnus-carpal-mode-hook))    (gnus-run-mode-hooks 'gnus-carpal-mode-hook))
1013    
1014  (defun gnus-carpal-setup-buffer (type)  (defun gnus-carpal-setup-buffer (type)
1015    (let ((buffer (symbol-value (intern (format "gnus-carpal-%s-buffer" type)))))    (let ((buffer (symbol-value (intern (format "gnus-carpal-%s-buffer" type)))))

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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