diff options
Diffstat (limited to 'custom')
-rw-r--r-- | custom/jao-custom-gnus.el | 19 |
1 files changed, 3 insertions, 16 deletions
diff --git a/custom/jao-custom-gnus.el b/custom/jao-custom-gnus.el index b679b16..e8a5a15 100644 --- a/custom/jao-custom-gnus.el +++ b/custom/jao-custom-gnus.el @@ -377,12 +377,7 @@ (let* ((from (gnus-header-from headers)) (from (gnus-summary-extract-address-component from)) (from (replace-regexp-in-string jao-gnus--news-rx "" from))) - (if (string-prefix-p "<a " from) - (with-temp-buffer - (insert from) - (let ((shr-width 100000)) (shr-render-buffer (current-buffer))) - (buffer-string)) - from))) + from)) (setq gnus-user-date-format-alist '(((gnus-seconds-today) . "%H:%M") @@ -552,16 +547,8 @@ (defun jao-gnus-format-from () (save-excursion (goto-char (point-min)) - (cond ((re-search-forward "[gq].+ updates on arXiv.org: " nil t) - (replace-match "") - (let ((begin (point))) - (when (re-search-forward "^\\(To\\|Subject\\):" nil t) - (beginning-of-line) - (let ((shr-width 10000)) - (shr-render-region begin (1- (point))) - (replace-string-in-region "\"" "" (- begin 1)))))) - ((re-search-forward jao-gnus--from-rx nil t) - (replace-match "" nil nil nil 1))))) + (when (re-search-forward jao-gnus--from-rx nil t) + (replace-match "" nil nil nil 1)))) (add-hook 'gnus-part-display-hook 'jao-gnus-format-from) |