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> |
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." |
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))))) |