File chappa-insertpat.patch of Package alpine

---
 pico/display.c |   12 ++++++++++++
 pico/search.c  |    4 ++++
 2 files changed, 16 insertions(+)

Index: alpine-2.11/pico/display.c
===================================================================
--- alpine-2.11.orig/pico/display.c
+++ alpine-2.11/pico/display.c
@@ -1760,6 +1760,18 @@ mlreplyd(UCS *prompt, UCS *buf, int nbuf
 
 	    continue;
 
+	  case (CTRL|'N'):			/* Insert pattern */
+	   if (pat[0] != '\0'){
+		ucs4_strncpy(buf+ucs4_strlen(buf), pat, NPAT);
+		pputs(pat,1);
+		b = &buf[ucs4_strlen(buf)];
+		dline.vused += ucs4_strlen(pat);
+		changed = TRUE;
+		}
+	   else
+		(*term.t_beep)();
+	  continue;
+
 	  case (CTRL|'G') :			/* CTRL-G help		*/
 	    if(term.t_mrow == 0 && km_popped == 0){
 		movecursor(term.t_nrow-2, 0);
Index: alpine-2.11/pico/search.c
===================================================================
--- alpine-2.11.orig/pico/search.c
+++ alpine-2.11/pico/search.c
@@ -76,6 +76,10 @@ N_("        brackets.  This string is th
 N_("~        Hitting only ~R~e~t~u~r~n or at the prompt will cause the"),
 N_("        search to be made with the default value."),
 "  ",
+N_("~        Hitting ~^~N will reinsert the last string you searched for"),
+N_("        so that you can edit it (in case you made a mistake entering the"),
+N_("        search pattern the first time)."),
+"  ",
 N_("        The text search is not case sensitive, and will examine the"),
 N_("        entire message."),
 "  ",