diff options
| author | Michael I. Bushnell | 1994-07-07 01:43:06 +0000 |
|---|---|---|
| committer | Michael I. Bushnell | 1994-07-07 01:43:06 +0000 |
| commit | 93e8880c5536fece1845b3cdc605d99fd60f65a1 (patch) | |
| tree | 66bab9f8b250ead0e048ae62a80bfdcc988be927 | |
| parent | 710e5da8692bcf5a9382e04884bf12bcafef99a6 (diff) | |
| download | emacs-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.el | 8 |
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. |