diff options
Diffstat (limited to 'custom')
| -rw-r--r-- | custom/jao-custom-gnus.el | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/custom/jao-custom-gnus.el b/custom/jao-custom-gnus.el index 6cab185..ce77285 100644 --- a/custom/jao-custom-gnus.el +++ b/custom/jao-custom-gnus.el @@ -450,7 +450,7 @@ :config (add-to-list 'org-capture-templates '("x" "arXiv" entry (file "notes/physics/arxiv.org") - "* %(jao-gnus-subject)\n\n %i\n %(jao-gnus-org-url)" + "* %(jao-gnus-subject)\n\n %i\n\n %(jao-gnus-org-url)" :immediate-finish t) t) (add-to-list 'org-capture-templates @@ -479,18 +479,18 @@ (setq jao-gnus-subject (gnus-summary-article-subject)) (gnus-summary-select-article-buffer) (gnus-article-goto-part 0) - (setq-local transient-mark-mode 'lambda) - (set-mark (point)) - (forward-paragraph) - (or (and (save-excursion - (when (re-search-forward "^Link" nil t) - (beginning-of-line) - (setq jao-gnus-org-url (org-eww-url-below-point)))) - (org-capture nil "X")) - (and (save-excursion - (when (re-search-forward "^URL: " nil t) - (setq jao-gnus-org-url (thing-at-point-url-at-point)))) - (org-capture nil "x"))) + (let ((transient-mark-mode t)) + (set-mark (point)) + (forward-paragraph) + (or (and (save-excursion + (when (re-search-forward "^Link" nil t) + (beginning-of-line) + (setq jao-gnus-org-url (org-eww-url-below-point)))) + (org-capture nil "X")) + (and (save-excursion + (when (re-search-forward "^URL: " nil t) + (setq jao-gnus-org-url (thing-at-point-url-at-point)))) + (org-capture nil "x")))) (gnus-article-show-summary)) ;;; article @@ -593,7 +593,7 @@ (gnus-summary-select-article-buffer) (save-excursion (goto-char (point-min)) - (let ((offset (or (and (search-forward-regexp "^Enclosure: " nil t) 2) + (let ((offset (or (and (search-forward-regexp "^Enclosure: ?" nil t) 2) (and (search-forward-regexp "^Enclosure$" nil t) -2)))) (when offset (forward-char offset)) (if-let ((url (jao-url-around-point))) |