xemacs-beta: lisp/gnus/gnus-salt.el comparison

comparison lisp/gnus/gnus-salt.el @ 108:360340f9fd5f r20-1b6

Import from CVS: tag r20-1b6

author	cvs
date	Mon, 13 Aug 2007 09:18:39 +0200
parents	0d2f883870bc
children	25f70ba0133c

comparison

equal deleted inserted replaced

-:523141596bda
+:360340f9fd5f
 "Make Message do the right thing on exit."
 (when (and (gnus-buffer-live-p gnus-summary-buffer)
 	     (save-excursion
 	       (set-buffer gnus-summary-buffer)
 	       gnus-pick-mode))
 (message-add-action
 '(gnus-configure-windows 'pick t) 'send 'exit 'postpone 'kill)))
 (defvar gnus-pick-line-number 1)
 (defun gnus-pick-line-number ()
 "Return the current line number."
 (progn
 (gnus-summary-limit-to-articles nil)
 (when (or catch-up gnus-mark-unpicked-articles-as-read)
 	  (gnus-summary-limit-mark-excluded-as-read))
 (gnus-summary-first-article)
 (gnus-configure-windows
 	 (if gnus-pick-display-summary 'article 'pick) t))
 (if gnus-pick-elegant-flow
 	(progn
 	  (when (or catch-up gnus-mark-unpicked-articles-as-read)
 	    (gnus-summary-limit-mark-excluded-as-read))
 (defun gnus-binary-mode (&optional arg)
 "Minor mode for providing a binary group interface in Gnus summary buffers."
 (interactive "P")
 (when (eq major-mode 'gnus-summary-mode)
 (make-local-variable 'gnus-binary-mode)
 (setq gnus-binary-mode
 	  (if (null arg) (not gnus-binary-mode)
 	    (> (prefix-numeric-value arg) 0)))
 (when gnus-binary-mode
 ;; Make sure that we don't select any articles upon group entry.
 (make-local-variable 'gnus-auto-select-first)
 (defvar gnus-tree-mode-hook nil
 "*Hook run in tree mode buffers.")
 ;;; Internal variables.
 (defvar gnus-tree-line-format-alist
 `((?n gnus-tmp-name ?s)
 (?f gnus-tmp-from ?s)
 (?N gnus-tmp-number ?d)
 (?\[ gnus-tmp-open-bracket ?c)
 (?\] gnus-tmp-close-bracket ?c)
 ["Select article" gnus-tree-select-article t]))))
 (defun gnus-tree-mode ()
 "Major mode for displaying thread trees."
 (interactive)
 (setq gnus-tree-mode-line-format-spec
 	(gnus-parse-format gnus-tree-mode-line-format
 			   gnus-summary-mode-line-format-alist))
 (setq gnus-tree-line-format-spec
 	(gnus-parse-format gnus-tree-line-format
 			   gnus-tree-line-format-alist t))
 (when (gnus-visual-p 'tree-menu 'menu)
 (gnus-tree-make-menu-bar))
 (kill-all-local-variables)
 (gnus-simplify-mode-line)
 				     (point))))
 	;; Set the window start to either `bottom', which is the biggest
 	;; possible valid number, or the second line from the top,
 	;; whichever is the least.
 	(set-window-start
 	 tree-window (min bottom (save-excursion
 				   (forward-line (- top)) (point)))))
 (select-window selected))))
 (defun gnus-get-tree-buffer ()
 "Return the tree buffer properly initialized."
 (when (and gnus-tree-minimize-window
 	     (not (one-window-p)))
 (let ((windows 0)
 	  tot-win-height)
 (walk-windows (lambda (window) (incf windows)))
 (setq tot-win-height
 	    (- (frame-height)
 	       (* window-min-height (1- windows))
 	       2))
 (let* ((window-min-height 2)
 	     (height (count-lines (point-min) (point-max)))
 	;; Eval the cars of the lists until we find a match.
 	(while (and list
 		    (not (eval (caar list))))
 	  (setq list (cdr list)))))
 (unless (eq (setq face (cdar list)) (get-text-property beg 'face))
 (gnus-put-text-property
 beg end 'face
 (if (boundp face) (symbol-value face) face)))))
 (defun gnus-tree-indent (level)
 (insert (make-string (1- (* (1+ gnus-tree-node-length) level)) ? )))
 	       (vectorp (gnus-summary-article-header article))))
 (save-excursion
 (let ((top (save-excursion
 		   (set-buffer gnus-summary-buffer)
 		   (gnus-cut-thread
 		    (gnus-remove-thread
 		     (mail-header-id
 		      (gnus-summary-article-header article))
 		     t))))
 	    (gnus-tmp-limit gnus-newsgroup-limit)
 	    (gnus-tmp-sparse gnus-newsgroup-sparse))
 	(when (or force
 	;; Create a new overlay.
 	(gnus-overlay-put
 	 (setq gnus-selected-tree-overlay (gnus-make-overlay 1 2))
 	 'face gnus-selected-tree-face))
 ;; Move the overlay to the article.
 (gnus-move-overlay
 gnus-selected-tree-overlay (goto-char (car region)) (cdr region))
 (gnus-tree-minimize)
 (gnus-tree-recenter)
 (let ((selected (selected-window)))
 	(when (get-buffer-window (set-buffer gnus-tree-buffer) t)
 (save-excursion
 (set-buffer (gnus-get-tree-buffer))
 (let (region)
 (when (setq region (gnus-tree-article-region article))
 	(gnus-put-text-property (car region) (cdr region) 'face face)
 	(set-window-point
 	 (get-buffer-window (current-buffer) t) (cdr region))))))
 ;;;
 ;;; gnus-carpal
 ;;;
 ("rescan" . gnus-group-get-new-news)
 ("browse-foreign" . gnus-group-browse-foreign)
 ("exit" . gnus-group-exit)))
 (defvar gnus-carpal-summary-buffer-buttons
 '("mark"
 ("read" . gnus-summary-mark-as-read-forward)
 ("tick" . gnus-summary-tick-article-forward)
 ("clear" . gnus-summary-clear-mark-forward)
 ("expirable" . gnus-summary-mark-as-expirable)
 "move"
 ("cancel" . gnus-summary-cancel-article)
 "misc"
 ("exit" . gnus-summary-exit)
 ("fed-up" . gnus-summary-catchup-and-goto-next-group)))
 (defvar gnus-carpal-server-buffer-buttons
 '(("add" . gnus-server-add-server)
 ("browse" . gnus-server-browse-server)
 ("list" . gnus-server-list-servers)
 ("kill" . gnus-server-kill-server)
 ("yank" . gnus-server-yank-server)
 (if (get-buffer buffer)
 	()
 (save-excursion
 	(set-buffer (get-buffer-create buffer))
 	(gnus-carpal-mode)
 	(setq gnus-carpal-attached-buffer
 	      (intern (format "gnus-%s-buffer" type)))
 	(gnus-add-current-to-buffer-list)
 	(let ((buttons (symbol-value
 			(intern (format "gnus-carpal-%s-buffer-buttons"
 					type))))
 	      (buffer-read-only nil)
 	      button)
 	  (while buttons

Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-salt.el @ 108:360340f9fd5f r20-1b6