Fetch port with f in macports-outdated-mode

macports-outdated.el

@@ -84,7 +84,7 @@ See `macports-installed--init-flag' for details.")
     (define-key map (kbd "RET") #'macports-outdated-describe-port)
     (define-key map (kbd "c") #'macports-outdated-port-contents)
     (define-key map (kbd "e") #'macports-outdated-edit-port)
-    (define-key map (kbd "f") #'macports-outdated-edit-port)
+    (define-key map (kbd "f") #'macports-outdated-fetch-port)
     (define-key map (kbd "L") #'macports-outdated-port-log)
     (define-key map (kbd "C") #'macports-outdated-port-clean)
     (define-key map (kbd "u") #'macports-outdated-mark-upgrade)
@@ -112,6 +112,12 @@ See `macports-installed--init-flag' for details.")
   (macports-outdated--ensure-macports-outdated-mode)
   (macports-edit-portfile (macports-outdated--get-id)))
 
+(defun macports-outdated-fetch-port ()
+  "Fetch portfile for the current port."
+  (interactive)
+  (macports-outdated--ensure-macports-outdated-mode)
+  (funcall-interactively #'macports-fetch (macports-outdated--get-id)))
+
 (defun macports-outdated-port-log ()
   "Open log for the current port."
   (interactive)