[emacs/{gnus,org}] org-store-link (binding + no limit on subject)
authorAmin Bandali <bandali@gnu.org>
Thu, 8 Nov 2018 17:38:56 +0000 (12:38 -0500)
committerAmin Bandali <bandali@gnu.org>
Thu, 8 Nov 2018 17:41:56 +0000 (12:41 -0500)
init.org

index 8de259e..d8ea5c1 100644 (file)
--- a/init.org
+++ b/init.org
@@ -704,7 +704,9 @@ In short, my favourite way of life.
   (setq org-src-tab-acts-natively t
         org-src-preserve-indentation nil
         org-edit-src-content-indentation 0
   (setq org-src-tab-acts-natively t
         org-src-preserve-indentation nil
         org-edit-src-content-indentation 0
+        org-email-link-description-format "Email %c: %s" ; %.30s
         org-log-done 'time)
         org-log-done 'time)
+  :bind (:map org-mode-map ("M-L" . org-insert-last-stored-link))
   :hook ((org-mode . org-indent-mode)
          (org-mode . auto-fill-mode)
          (org-mode . flyspell-mode))
   :hook ((org-mode . org-indent-mode)
          (org-mode . auto-fill-mode)
          (org-mode . flyspell-mode))
@@ -1816,8 +1818,9 @@ Hopefully temporary.
       (concat local lapsed))))
   (bind-keys
    :map gnus-article-mode-map
       (concat local lapsed))))
   (bind-keys
    :map gnus-article-mode-map
-   ("r" . gnus-article-reply-with-original)
-   ("R" . gnus-article-wide-reply-with-original)))
+   ("r"   . gnus-article-reply-with-original)
+   ("R"   . gnus-article-wide-reply-with-original)
+   ("M-L" . org-store-link)))
 
 (use-package gnus-sum
   :bind (:map gnus-summary-mode-map
 
 (use-package gnus-sum
   :bind (:map gnus-summary-mode-map
@@ -1831,8 +1834,9 @@ Hopefully temporary.
                                    '(List-Id X-RT-Originator)))
   (bind-keys
    :map gnus-summary-mode-map
                                    '(List-Id X-RT-Originator)))
   (bind-keys
    :map gnus-summary-mode-map
-   ("r" . gnus-summary-reply-with-original)
-   ("R" . gnus-summary-wide-reply-with-original)))
+   ("r"   . gnus-summary-reply-with-original)
+   ("R"   . gnus-summary-wide-reply-with-original)
+   ("M-L" . org-store-link)))
 
 (use-package nnmail
   :config
 
 (use-package nnmail
   :config