diff --git a/mu4e/mu4e-headers.el b/mu4e/mu4e-headers.el
index 673ceea3..7100e80d 100644
--- a/mu4e/mu4e-headers.el
+++ b/mu4e/mu4e-headers.el
@@ -237,15 +237,18 @@ Must have the same length as `mu4e-headers-thread-connection-prefix'.")
 
 ;;;; Various
 
-(defvar mu4e-headers-actions
+(defcustom mu4e-headers-actions
   '( ("capture message"  . mu4e-action-capture-message)
+     ("browse online archive" . mu4e-actions-browse-list-archive)
      ("show this thread" . mu4e-action-show-thread))
   "List of actions to perform on messages in the headers list.
 The actions are cons-cells of the form (NAME . FUNC) where:
 * NAME is the name of the action (e.g. \"Count lines\")
 * FUNC is a function which receives a message plist as an argument.
 
-The first character of NAME is used as the shortcut.")
+The first character of NAME is used as the shortcut."
+  :group 'mu4e-headers
+  :type '(alist :key-type string :value-type function))
 
 (defvar mu4e-headers-custom-markers
   '(("Older than"
diff --git a/mu4e/mu4e-view.el b/mu4e/mu4e-view.el
index 47323d31..4fe14e2b 100644
--- a/mu4e/mu4e-view.el
+++ b/mu4e/mu4e-view.el
@@ -73,12 +73,12 @@ etc., see the gnus documentation for details."
   :group 'mu4e-view)
 
 (defcustom mu4e-view-actions
-  (seq-filter #'identity
-              `( ("capture message"  . mu4e-action-capture-message)
-                 ("view in browser"  . mu4e-action-view-in-browser)
-                 ,(when (fboundp 'xwidget-webkit-browse-url)
-                    '("xview in xwidget" . mu4e-action-view-in-xwidget))
-                 ("show this thread" . mu4e-action-show-thread)))
+  (delq nil `(("capture message" . mu4e-action-capture-message)
+              ("view in browser" . mu4e-action-view-in-browser)
+              ("browse online archive" . mu4e-actions-browse-list-archive)
+              ,(when (fboundp 'xwidget-webkit-browse-url)
+                 '("xview in xwidget" . mu4e-action-view-in-xwidget))
+              ("show this thread" . mu4e-action-show-thread)))
   "List of actions to perform on messages in view mode.
 The actions are cons-cells of the form:
   (NAME . FUNC)