[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-sum.el [lexbind]

[Miles Bader]

Index: emacs/lisp/gnus/gnus-sum.el
diff -c emacs/lisp/gnus/gnus-sum.el:1.32.2.10 
emacs/lisp/gnus/gnus-sum.el:1.32.2.11
*** emacs/lisp/gnus/gnus-sum.el:1.32.2.10       Thu Nov  4 13:12:21 2004
--- emacs/lisp/gnus/gnus-sum.el Wed Dec  8 23:36:33 2004
***************
*** 264,270 ****
                               (not (or (consp value) (functionp value))))
                      :value t)
                (const nil)
!               (sexp :tag "Predicate specifier" :size 0)))
  
  (defcustom gnus-thread-hide-killed t
    "*If non-nil, hide killed threads automatically."
--- 264,270 ----
                               (not (or (consp value) (functionp value))))
                      :value t)
                (const nil)
!               (sexp :tag "Predicate specifier")))
  
  (defcustom gnus-thread-hide-killed t
    "*If non-nil, hide killed threads automatically."
***************
*** 4639,4657 ****
    "With %B spec, used for the root of a thread.
  If nil, use subject instead."
    :version "21.4"
!   :type '(radio (const :format "%v  " nil) (string :size 0))
    :group 'gnus-thread)
  (defcustom gnus-sum-thread-tree-false-root "> "
    "With %B spec, used for a false root of a thread.
  If nil, use subject instead."
    :version "21.4"
!   :type '(radio (const :format "%v  " nil) (string :size 0))
    :group 'gnus-thread)
  (defcustom gnus-sum-thread-tree-single-indent ""
    "With %B spec, used for a thread with just one message.
  If nil, use subject instead."
    :version "21.4"
!   :type '(radio (const :format "%v  " nil) (string :size 0))
    :group 'gnus-thread)
  (defcustom gnus-sum-thread-tree-vertical "| "
    "With %B spec, used for drawing a vertical line."
--- 4639,4657 ----
    "With %B spec, used for the root of a thread.
  If nil, use subject instead."
    :version "21.4"
!   :type '(radio (const :format "%v  " nil) string)
    :group 'gnus-thread)
  (defcustom gnus-sum-thread-tree-false-root "> "
    "With %B spec, used for a false root of a thread.
  If nil, use subject instead."
    :version "21.4"
!   :type '(radio (const :format "%v  " nil) string)
    :group 'gnus-thread)
  (defcustom gnus-sum-thread-tree-single-indent ""
    "With %B spec, used for a thread with just one message.
  If nil, use subject instead."
    :version "21.4"
!   :type '(radio (const :format "%v  " nil) string)
    :group 'gnus-thread)
  (defcustom gnus-sum-thread-tree-vertical "| "
    "With %B spec, used for drawing a vertical line."
***************
*** 6676,6690 ****
        (when (eq mode 'gnus-summary-mode)
          (gnus-kill-buffer buf)))
        (setq gnus-current-select-method gnus-select-method)
!       (if leave-hidden
!         (set-buffer gnus-group-buffer)
!       (pop-to-buffer gnus-group-buffer))
!       (if (not quit-config)
!         (progn
!           (goto-char group-point)
!           (unless leave-hidden
!             (gnus-configure-windows 'group 'force)))
!       (gnus-handle-ephemeral-exit quit-config))
        ;; Clear the current group name.
        (unless quit-config
        (setq gnus-newsgroup-name nil)))))
--- 6676,6687 ----
        (when (eq mode 'gnus-summary-mode)
          (gnus-kill-buffer buf)))
        (setq gnus-current-select-method gnus-select-method)
!       (set-buffer gnus-group-buffer)
!       (if quit-config
!         (gnus-handle-ephemeral-exit quit-config)
!       (goto-char group-point)
!       (unless leave-hidden
!         (gnus-configure-windows 'group 'force)))
        ;; Clear the current group name.
        (unless quit-config
        (setq gnus-newsgroup-name nil)))))
***************
*** 11769,11773 ****
  ;; coding: iso-8859-1
  ;; End:
  
! ;;; arch-tag: 17c6748f-6d00-4d36-bf01-835c42f31235
  ;;; gnus-sum.el ends here
--- 11766,11770 ----
  ;; coding: iso-8859-1
  ;; End:
  
! ;; arch-tag: 17c6748f-6d00-4d36-bf01-835c42f31235
  ;;; gnus-sum.el ends here