commit d12e1ddf42cddcac56f98c5b3a65f5219d2d5968 (HEAD, refs/remotes/origin/master) Author: Stephen Berman Date: Sat Jan 28 20:49:19 2017 +0100 hl-line.el: Don't try to operate on a killed buffer * lisp/hl-line.el (hl-line-maybe-unhighlight): Examine only live buffers (bug#25522). diff --git a/lisp/hl-line.el b/lisp/hl-line.el index 4cf0573089..38fe683785 100644 --- a/lisp/hl-line.el +++ b/lisp/hl-line.el @@ -189,7 +189,8 @@ Specifically, when `hl-line-sticky-flag' is nil deactivate all such overlays in all buffers except the current one." (let ((hlob hl-line-overlay-buffer) (curbuf (current-buffer))) - (when (and (not hl-line-sticky-flag) + (when (and (buffer-live-p hlob) + (not hl-line-sticky-flag) (not (eq curbuf hlob)) (not (minibufferp))) (with-current-buffer hlob commit c7bbddf0eae653b23430c426cb75e0289e9f3a29 Author: Mark Oteiza Date: Sat Jan 28 12:06:41 2017 -0500 Use access-file in EWW to check before downloading a file * lisp/net/eww.el (eww-download): Check accessibility of eww-download-directory to prevent starting a download that will fail to write. * src/fileio.c (Faccess_file): Clarify the use of string argument in the docstring. diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 0282fe68e6..f7e0634144 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -1501,6 +1501,7 @@ Differences in #targets are ignored." (defun eww-download () "Download URL under point to `eww-download-directory'." (interactive) + (access-file eww-download-directory "Download failed") (let ((url (get-text-property (point) 'shr-url))) (if (not url) (message "No URL under point") diff --git a/src/fileio.c b/src/fileio.c index 81eaa77118..a46cfc7ac6 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -2682,7 +2682,7 @@ DEFUN ("file-writable-p", Ffile_writable_p, Sfile_writable_p, 1, 1, 0, DEFUN ("access-file", Faccess_file, Saccess_file, 2, 2, 0, doc: /* Access file FILENAME, and get an error if that does not work. -The second argument STRING is used in the error message. +The second argument STRING is prepended to the error message. If there is no error, returns nil. */) (Lisp_Object filename, Lisp_Object string) { commit f83363d30e1c78c228e57fe1a5e9ad8faf89f238 Author: Yuri D'Elia Date: Sat Jan 28 15:20:54 2017 +0100 Subject: Check Bcc after the Messag hook has run * lisp/gnus/message.el (message-send): If the hook modifies the message (mml tags or headers), we should check bcc on the final message, not on the original. diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 4f08b0b272..ce0dad9cb0 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -4119,8 +4119,8 @@ It should typically alter the sending method in some way or other." (let ((inhibit-read-only t)) (put-text-property (point-min) (point-max) 'read-only nil)) (message-fix-before-sending) - (mml-secure-bcc-is-safe) (run-hooks 'message-send-hook) + (mml-secure-bcc-is-safe) (when message-confirm-send (or (y-or-n-p "Send message? ") (keyboard-quit)))