[Emacs-diffs] master a8dd976 11/15: Merge from origin/emacs-25

[John Wiegley]

branch: master
commit a8dd976aa5299060ee3670f8d693887960aa6ad8
Merge: 91b263e 9fb185a
Author: John Wiegley <address@hidden>
Commit: John Wiegley <address@hidden>

    Merge from origin/emacs-25
    
    9fb185a shr-tag-video bug fix
    6300655 Minor fixes in tramp-tests.el
    50575b1 Ensure redisplay when 'truncate-lines' is set
    0d9e80d Fix a doc string of 'transient-mark-mode'
    0000ae5 MS-Windows followup to latest gnulib update
    4bc5e02 Spelling fix
    f1093f7 Do secure signed Bcc handling
---
 lisp/frame.el                |    1 +
 lisp/gnus/message.el         |    3 +++
 lisp/net/shr.el              |    2 +-
 lisp/progmodes/xref.el       |    2 +-
 nt/gnulib.mk                 |    7 +++++++
 src/buffer.c                 |    2 +-
 test/lisp/net/tramp-tests.el |    5 +++--
 7 files changed, 17 insertions(+), 5 deletions(-)

diff --git a/lisp/frame.el b/lisp/frame.el
index 04dd4ab..09738d1 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -2239,6 +2239,7 @@ See also `toggle-frame-maximized'."
         overline-margin
         line-prefix
         wrap-prefix
+        truncate-lines
         bidi-paragraph-direction
         bidi-display-reordering))
 
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 7be2ff9..51dcc1a 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -4227,6 +4227,8 @@ Instead, just auto-save the buffer and then bury it."
   (if message-return-action
       (apply (car message-return-action) (cdr message-return-action))))
 
+(autoload 'mml-secure-bcc-is-safe "mml-sec")
+
 (defun message-send (&optional arg)
   "Send the message in the current buffer.
 If `message-interactive' is non-nil, wait for success indication or
@@ -4241,6 +4243,7 @@ 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)
   (when message-confirm-send
     (or (y-or-n-p "Send message? ")
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index d24f0d3..2511d67 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1378,7 +1378,7 @@ The preference is a float determined from 
`shr-prefer-media-type'."
         (start (point)))
     (unless url
       (setq url (car (shr--extract-best-source dom))))
-    (if image
+    (if (> (length image) 0)
         (shr-tag-img nil image)
       (shr-insert " [video] "))
     (shr-urlify start (shr-expand-url url))))
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index 26471b0..ae5ec61 100644
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -21,7 +21,7 @@
 
 ;; NOTE: The xref API is still experimental and can change in major,
 ;; backward-incompatible ways.  Everyone is encouraged to try it, and
-;; report to us any problems or use cases we hadn't anticiated, by
+;; report to us any problems or use cases we hadn't anticipated, by
 ;; sending an email to emacs-devel, or `M-x report-emacs-bug'.
 ;;
 ;; This file provides a somewhat generic infrastructure for cross
diff --git a/nt/gnulib.mk b/nt/gnulib.mk
index 7c9cc19..6884bf9 100644
--- a/nt/gnulib.mk
+++ b/nt/gnulib.mk
@@ -453,6 +453,13 @@ EXTRA_libgnu_a_SOURCES += group-member.c
 
 ## end   gnulib module group-member
 
+## begin gnulib module ignore-value
+
+
+EXTRA_DIST += ignore-value.h
+
+## end   gnulib module ignore-value
+
 ## begin gnulib module intprops
 
 
diff --git a/src/buffer.c b/src/buffer.c
index c07b2dc..51c36de 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -6201,7 +6201,7 @@ all windows or just the selected window.
 
 Lisp programs may give this variable certain special values:
 
-- A value of `lambda' enables Transient Mark mode temporarily.
+- A value of \\='lambda (literally) enables Transient Mark mode temporarily.
   It is disabled again after any subsequent action that would
   normally deactivate the mark (e.g. buffer modification).
 
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 5938ada..f072584 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -1424,6 +1424,7 @@ This tests also `make-symbolic-link', `file-truename' and 
`add-name-to-file'."
            (should-not (get-buffer-window (current-buffer) t))
 
            ;; Second run. The output must be appended.
+           (goto-char (point-max))
            (should (zerop (process-file "ls" nil t t fnnd)))
            ;; `ls' could produce colorized output.
            (goto-char (point-min))
@@ -1652,8 +1653,8 @@ This tests also `make-symbolic-link', `file-truename' and 
`add-name-to-file'."
              (error
               (vc-register
                nil (list (car vc-handled-backends)
-                         (list (file-name-nondirectory tmp-name2)))))))
-         (should (vc-registered tmp-name2)))
+                         (list (file-name-nondirectory tmp-name2))))))
+           (should (vc-registered (file-name-nondirectory tmp-name2)))))
 
       ;; Cleanup.
       (ignore-errors (delete-directory tmp-name1 'recursive)))))