Blame SOURCES/gettext-po-send-mail.patch

bbba10
Index: gettext-0.19.8.1/gettext-tools/misc/po-mode.el
bbba10
===================================================================
bbba10
--- gettext-0.19.8.1.orig/gettext-tools/misc/po-mode.el
bbba10
+++ gettext-0.19.8.1/gettext-tools/misc/po-mode.el
bbba10
@@ -3518,10 +3518,12 @@ Write to your team?  ('n' if writing to
bbba10
             (re-search-forward
bbba10
              (concat "^" (regexp-quote mail-header-separator) "\n"))
bbba10
             (save-excursion
bbba10
-              (insert-buffer-substring buffer)
bbba10
-              (shell-command-on-region
bbba10
-               (region-beginning) (region-end)
bbba10
-               (concat po-gzip-uuencode-command " " name ".gz") t t))))))
bbba10
+              (save-restriction
bbba10
+                (narrow-to-region (point) (point))
bbba10
+                (insert-buffer-substring buffer)
bbba10
+                (shell-command-on-region
bbba10
+                 (point-min) (point-max)
bbba10
+                 (concat po-gzip-uuencode-command " " name ".gz") t t)))))))
bbba10
   (message ""))
bbba10
 
bbba10
 (defun po-confirm-and-quit ()