equal
deleted
inserted
replaced
1739 (setq field-to (substring field-to 0 32))) |
1739 (setq field-to (substring field-to 0 32))) |
1740 (when (> (length field-subject) 64) |
1740 (when (> (length field-subject) 64) |
1741 (setq field-subject (substring field-subject 0 64))) |
1741 (setq field-subject (substring field-subject 0 64))) |
1742 (setq file (concat gnus-article-save-directory "/" (format-time-string "%F_%H-%M-%S") "_" field-to "_" field-subject)) |
1742 (setq file (concat gnus-article-save-directory "/" (format-time-string "%F_%H-%M-%S") "_" field-to "_" field-subject)) |
1743 (with-temp-file file |
1743 (with-temp-file file |
1744 (insert-buffer buf) |
1744 (insert-buffer-substring buf) |
1745 )) ) |
1745 )) ) |
1746 (add-hook 'message-sent-hook 'my-message-save) |
1746 (add-hook 'message-sent-hook 'my-message-save) |
1747 |
1747 |
1748 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1748 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1749 (message "smtp, smtpmail") |
1749 (message "smtp, smtpmail") |
3094 (interactive "r") |
3094 (interactive "r") |
3095 (save-excursion |
3095 (save-excursion |
3096 (save-restriction |
3096 (save-restriction |
3097 (narrow-to-region start end) |
3097 (narrow-to-region start end) |
3098 (goto-char (point-min)) |
3098 (goto-char (point-min)) |
3099 (replace-string "&" "&") |
3099 (while (search-forward "&") (replace-match "&")) |
3100 (goto-char (point-min)) |
3100 (goto-char (point-min)) |
3101 (replace-string "<" "<") |
3101 (while (search-forward "<") (replace-match "<")) |
3102 (goto-char (point-min)) |
3102 (goto-char (point-min)) |
3103 (replace-string ">" ">") |
3103 (while (search-forward ">") (replace-match ">")) |
3104 ))) |
3104 ))) |
3105 |
3105 |
3106 (defun my-html-charref-from-char (char) |
3106 (defun my-html-charref-from-char (char) |
3107 (format "&#%d;" char) |
3107 (format "&#%d;" char) |
3108 ) |
3108 ) |