aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael I. Bushnell1994-07-07 01:43:06 +0000
committerMichael I. Bushnell1994-07-07 01:43:06 +0000
commit93e8880c5536fece1845b3cdc605d99fd60f65a1 (patch)
tree66bab9f8b250ead0e048ae62a80bfdcc988be927
parent710e5da8692bcf5a9382e04884bf12bcafef99a6 (diff)
downloademacs-93e8880c5536fece1845b3cdc605d99fd60f65a1.tar.gz
emacs-93e8880c5536fece1845b3cdc605d99fd60f65a1.zip
Turning on gnus-show-threads in these four functions was a mistake;
these functions are called by generic code a lot--the effect was that a user was forced to use the threads feature no matter what. In addition the code to turn on gnus-show-threads was incorrect.
-rw-r--r--lisp/gnus.el8
1 files changed, 0 insertions, 8 deletions
diff --git a/lisp/gnus.el b/lisp/gnus.el
index e1b43d40630..24fa8c1b8d5 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -3532,8 +3532,6 @@ With arg, turn showing conversation threads on iff arg is positive."
3532(defun gnus-summary-show-all-threads () 3532(defun gnus-summary-show-all-threads ()
3533 "Show all thread subtrees." 3533 "Show all thread subtrees."
3534 (interactive) 3534 (interactive)
3535 (or gnus-show-threads
3536 (gnus-summary-show-all-threads 1))
3537 (if gnus-show-threads 3535 (if gnus-show-threads
3538 (save-excursion 3536 (save-excursion
3539 (let ((buffer-read-only nil)) 3537 (let ((buffer-read-only nil))
@@ -3543,8 +3541,6 @@ With arg, turn showing conversation threads on iff arg is positive."
3543(defun gnus-summary-show-thread () 3541(defun gnus-summary-show-thread ()
3544 "Show thread subtrees." 3542 "Show thread subtrees."
3545 (interactive) 3543 (interactive)
3546 (or gnus-show-threads
3547 (gnus-summary-show-all-threads 1))
3548 (if gnus-show-threads 3544 (if gnus-show-threads
3549 (save-excursion 3545 (save-excursion
3550 (let ((buffer-read-only nil)) 3546 (let ((buffer-read-only nil))
@@ -3558,8 +3554,6 @@ With arg, turn showing conversation threads on iff arg is positive."
3558(defun gnus-summary-hide-all-threads () 3554(defun gnus-summary-hide-all-threads ()
3559 "Hide all thread subtrees." 3555 "Hide all thread subtrees."
3560 (interactive) 3556 (interactive)
3561 (or gnus-show-threads
3562 (gnus-summary-show-all-threads 1))
3563 (if gnus-show-threads 3557 (if gnus-show-threads
3564 (save-excursion 3558 (save-excursion
3565 ;; Adjust cursor point. 3559 ;; Adjust cursor point.
@@ -3575,8 +3569,6 @@ With arg, turn showing conversation threads on iff arg is positive."
3575(defun gnus-summary-hide-thread () 3569(defun gnus-summary-hide-thread ()
3576 "Hide thread subtrees." 3570 "Hide thread subtrees."
3577 (interactive) 3571 (interactive)
3578 (or gnus-show-threads
3579 (gnus-summary-show-all-threads 1))
3580 (if gnus-show-threads 3572 (if gnus-show-threads
3581 (save-excursion 3573 (save-excursion
3582 ;; Adjust cursor point. 3574 ;; Adjust cursor point.