mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

Merge changes made in Gnus trunk.

Browse Source 
message.el (message-is-yours-p): Allow disabling canlock checking (bug#9295).
 (message-shoot-gnksa-feet): Add `canlock-verify'.
 (message-auto-save-directory): Use ~/ as the auto-save directory if the message directory isn't writable (bug#9304).
auth-source.el (auth-source-netrc-saver): Make the .authinfo file non-world-readable.
This commit is contained in:
Lars Magne Ingebrigtsen 2011-08-17 22:09:19 +00:00 committed by Katsumi Yamaoka
parent 3e79eb87b7
commit 4dcb0d7a58
3 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/gnus/ChangeLog
View File

@ -1,3 +1,14 @@
2011-08-17 Lars Magne Ingebrigtsen <larsi@gnus.org>
* message.el (message-is-yours-p): Allow disabling canlock checking
(bug#9295).
(message-shoot-gnksa-feet): Add `canlock-verify'.
(message-auto-save-directory): Use ~/ as the auto-save directory if the
message directory isn't writable (bug#9304).
* auth-source.el (auth-source-netrc-saver): Make the .authinfo file
non-world-readable.
2011-08-17 Katsumi Yamaoka <yamaoka@jpl.org>
* nndraft.el (nndraft-update-unread-articles): Don't send delayed

2
lisp/gnus/auth-source.el
View File

@ -1377,6 +1377,8 @@ Respects `auth-source-save-behavior'. Uses
(insert "\n"))
(insert add "\n")
(write-region (point-min) (point-max) file nil 'silent)
;; Make the .authinfo file non-world-readable.
(set-file-modes file #o600)
(auth-source-do-debug
"auth-source-netrc-create: wrote 1 new line to %s"
file)

8
lisp/gnus/message.el
View File

@ -1310,7 +1310,7 @@ text and it replaces `self-insert-command' with the other command, e.g.
:type '(repeat function))
(defcustom message-auto-save-directory
(if (file-exists-p message-directory)
(if (file-writable-p message-directory)
(file-name-as-directory (expand-file-name "drafts" message-directory))
"~/")
"*Directory where Message auto-saves buffers if Gnus isn't running.
@ -1353,7 +1353,8 @@ candidates:
`quoted-text-only' Allow you to post quoted text only;
`multiple-copies' Allow you to post multiple copies;
`cancel-messages' Allow you to cancel or supersede messages from
your other email addresses.")
your other email addresses;
`canlock-verify' Allow you to cancel messages without verifying canlock.")
(defsubst message-gnksa-enable-p (feature)
(or (not (listp message-shoot-gnksa-feet))
@ -7037,7 +7038,8 @@ regexp to match all of yours addresses."
(save-excursion
(save-restriction
(message-narrow-to-head-1)
(if (message-fetch-field "Cancel-Lock")
(if (and (message-fetch-field "Cancel-Lock")
(message-gnksa-enable-p 'canlock-verify))
(if (null (canlock-verify))
t
(error "Failed to verify Cancel-lock: This article is not yours"))