Address "Useless clause following default cond clause" warnings

* lisp/gnus/message.el (message-position-point): Fix paren typo.

* lisp/org/org.el: Remove dead-code.

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index b8ea529d51c0fab2976c6fea9da166a5a1b364c8..b6b9927a78837fce6611b0889ab0d6d1019b929e 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -6595,8 +6595,8 @@ they are."
     (widen)
     (forward-line 1)
     (unless (looking-at "$")
-      (forward-line 2)))
-   (sit-for 0)))
+      (forward-line 2))))
+  (sit-for 0))
 
 (defcustom message-beginning-of-line t
   "Whether \\<message-mode-map>\\[message-beginning-of-line]\

diff --git a/lisp/org/org.el b/lisp/org/org.el
index b18a446e4d4f28f57e343eedc862d7634e6b3aa8..9a0bcf7dd6603ef5da9b1d5e0c06dff4810d3db1 100644 (file)
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -18872,9 +18872,7 @@ ELEMENT."
             (goto-char start)
             (current-indentation)))
          ;; In any other case, indent like the current line.
-         (t (current-indentation)))))
-      ;; Finally, no indentation is needed, fall back to 0.
-      (t (current-indentation))))))
+         (t (current-indentation)))))))))
 
 (defun org--align-node-property ()
   "Align node property at point.