equal
deleted
inserted
replaced
1509 (make-directory gnus-article-save-directory t) |
1509 (make-directory gnus-article-save-directory t) |
1510 (let ( (buf (current-buffer)) |
1510 (let ( (buf (current-buffer)) |
1511 (field-to (my-clean-filename (or (message-fetch-field "Newsgroups") (message-fetch-field "To")))) |
1511 (field-to (my-clean-filename (or (message-fetch-field "Newsgroups") (message-fetch-field "To")))) |
1512 (field-subject (my-clean-filename (message-fetch-field "Subject"))) |
1512 (field-subject (my-clean-filename (message-fetch-field "Subject"))) |
1513 file ) |
1513 file ) |
|
1514 (when (> (length field-to) 32) |
|
1515 (setq field-to (substring field-to 0 32))) |
|
1516 (when (> (length field-subject) 64) |
|
1517 (setq field-subject (substring field-subject 0 64))) |
1514 (setq file (concat gnus-article-save-directory "/" (format-time-string "%F_%T") "_" field-to "_" field-subject)) |
1518 (setq file (concat gnus-article-save-directory "/" (format-time-string "%F_%T") "_" field-to "_" field-subject)) |
1515 (with-temp-file file |
1519 (with-temp-file file |
1516 (insert-buffer buf) |
1520 (insert-buffer buf) |
1517 )) ) |
1521 )) ) |
1518 (add-hook 'message-sent-hook 'my-message-save) |
1522 (add-hook 'message-sent-hook 'my-message-save) |